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Cab os Centronics TPX. 



AHa quaHdade ligada a 




mieroeompatadof. 



A alta qualidade acaba de se ligar ao 
microcomputador. Com o cabo TPX 
voce conecta seu MSX (Expert ou Hotbit) a 
qualquer periferico de saida padrao 
Centronics, como impressoras, plotter, brago 
mecanico etc. 

Uma novidade no mercado, com exclusivo sistema de 
isolamento pino-a-pino que evita perda de contato 
e curto-circuito. Cabo Centronics e desenvolvido 
dentro dos mais rigorosos 
padroes de tecnologia e testado 
eletronicamente segundo as mais 
avangadas normas mundiais, para 
total garantia de funcionamento. 
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Um produto com a garantia 

TROPIC INFORMATICA LTDA. 

Caixa Postal 16.441 • CEP 02599 • SP 
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E ditar um numero voltado pa- 
ra jogos e sempre uma expe- 
rience alegre A maioria de voc6s, 
que acompanha a revista ha tem- 
pos, sabe que nosso numero espe- 
cial de logos era veiculado em Janei- 
ro: contudo aqui na redagao, tro- 
cando uma iddia, concluimos que 
seria mais interessante para os lei- 
tores mais aficcionados pelo tema 
que esta edigao fosse publicada no 
inicio das fdrias, dando assim opor- 
tunidade para um “longo periodo 
de digitagao". Desta maneira, deci- 
dimos que o m§s de novembro seria 
uma boa dpoca, pordm desde ja 
gostariamos de ouvir a opiniao da- 
queles que discordam. 

Quando se fala em jogos, existe 
tanta coisa a abordar que somente 
uma edigao se mostraria insuficien- 
te. Sao varios os tipos de games, e a 
revista MICRO SISTEMAS normal- 
mente trata bastante do assunto: fa- 
lamos sobre os adventures em 
nossa edigao de agosto, e inclusive 
convidamos os autores deste tipo 
de jogos a enviarem seus progra- 
mas para MS, mas infelizmente nin- 
guem se arriscou. Fica o convite. 
Outro tipo popular de jogos sao os 
de simulagao. E a equipe de MICRO 
SISTEMAS esta preparando um es- 
pecial sobre simuladores de voo — 
assmado por Delio dos Santos Li- 
ma. connecido autor da area — que 
sera das mat&rias mais completas, 
mesmo a nivel mternacional, que ja 
se fizeram sobre o tema. Aguardem. 

Neste numero. o enfoque maior 
ficou para os jogos de agao. Sao 
publicados varios programas em 
nosso Banco de Software, para di- 
versas linhas de equipamentos. 
Para os usuanos de TRS-80 que 
querem aprimorar seus conheci- 
mentos de Assembler brmcando. 
uma boa chance e o artigo Assem- 
ble- se. Alem disto, apresentamos 
neste numero um artigo especial 
sobre joysticks, com uma analise 
dos modelos existentes, enquanto 
que nossa segao de software mostra 
jogos que simulam esportes e os ul- 
timos filmes de sucesso, e que tam- 
bem ja sao encontraveis no Brasil. 
Por tudo isto, temos certeza de que 
este numero vai Ihe agradar. Portan- 
to, prepare-se para ler... e digitar. 
Boas ferias, antecipadamente. 
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0 MAPA DA ROM DO TK90X 

Conhepa melhor seu TK90X com este artigo, de Alvaro Borja, 
contendo os endere^os das rotinas do sistema operacional. 

ASSEMBLE-SE! 

Aprender Assembler nao e um bicho-de-sete-cabepas. Inicie jS 
seus estudos com este artigo de Lufs Bonilauri para a linha 
TRS-80. 



EM BUSCA DOSTESOUROS 

MICRO SISTEMAS traz, mais uma vez, o servigo MS Destaque. 
Agora, com um excelente jogo, de Tadeu C. da Silva, para o 
ZX81. 



A EVOLUqAO DOS JOGOS NO BRASIL 
Divino C. R. LeitSo trapa um panorama do mercado de jogos, 
abordando desde a aparipao dos primeiros video-games ate os 
fant£sticos programas para micros disponlveis hoje. 



TRAFALGAR 

Participe de uma batalha emocionante, comandando um 
poderoso complexo militar nos micros das linhas MSX e ZX 
Spectrum. Jogo de autoria de Frederico Liporace e Fernando 
Leibel. 



0 DIA EM QUE CAPITAO GANCHO DESERTOU 
Divirta-se com uma cronica bem-humorada, escrita por 
Fernando Martins, sobre o fracasso de um velho e persistente 
pi rata. 

BANCO DE SOFTWARE 

38 AVENTURA ESPACIAL 
40 OTHELLO 
42 LUNAR 10 

45 FROGGER 

46 ATLANTIDA 

48 COLOR POQUER 
50 FORMULA 86 
52 ATLANTIS 
54 TRON 
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0 sorteado deste mes, que recebera uma 
assinatura anual da revista MICRO 
SISTEMAS, 6 Frederico de Abreu, de 
Santos Dumont — MG. 

TRS-80: MAL-ENTENDIDOS ^ 

Apos ler a reportagem "Minha biblioteca de 
software ideal", em MS n? 58, tomei animo 
para escrever-lhes, ainda mai* depois do apelo 
editorial aos possuidores de micros TRS-80- 
LIKE. 

E preciso que alguim (Por que nao voctfs 
mesmos?) analise e divulgue os recursos do 
TRS-80, acabando assim com uma sirie de m al- 
ert tend idos ou mesmo ignorancia dos fatos. A 
comegar da reportagem citada anteriormente, 
no mi’nimo revoltante para quern conhece e tra- 
balha com os TRS-80. 

Seri que 6 tao difi'cil assim encontrar um 
usuirio de TRS-80 que o utiliza diariamente? 
Alguim que esteja a cada dia descobrindo ou 
pesquisando novos recursos neste tipo de m<- 
quina? Para mim foi um erro grave de vocis dar 
a palavra do relato sobre os TRS-80 a um ex- 
usuirio que justifica isso dizendo que hoje tra- 
balha com CP/M. Ficou no ar um tom de nos- 
talgia, de que o TRS-80 6 algo superado ("... pri- 
historico TRS-DOS. Acho que foi uma tre- 
menda injustiga, pois para os outros tipos de 
computadores foi dada a palavra a usuirios que 
estao trabalhando atualmente com as respecti- 
vas miquinas e que deixam no ar que gostam 
de trabalhar com elas (...) 

Este erro foi tao grave que acabou gerando 
uma outra sequtfncia deles em seguida, como, 
por exemplo, a lista de software dos TRS-80 
apresentada. Profundamente lamentivel. 

1 — Concordo que o NEWDOS 6 o melhor sis- 
tema operacional para o TRS-80, talvez ati o 
melhor ji feito para miquinas de 8 bits! Nao 
apenas por sua flexibilidade, mas tambim por 
seus potentes recursos muito bem implemen- 
tados, alim de fornecer programas de grande 
qualidade como Disassem (disassembly de Z80), 
Superzap (utilitirio com virias fungoes, princi- 
palmente na edigao de disquetes) e um BASIC 
com recursos que nem mesmo hoje se encontra 
nos BASICs mais modernos das miquinas de 16 
bits. 

2 — 0 melhor compilador BASIC para a linha 
TRS-80 i o ZB ASIC 3.0, da Zedcor INc. e nao 
o paquidirmico BASCOM, que i muito demora- 
do e consome muita memdria, alim de nao es- 
tar implementado recursos importantes atual- 
mente como Device Independent Graphics and 
File I/O, programagao estruturada, uso opcional 
de Labels ao invis de numeros nos GOTOs, pre- 
precisao numirica de ati 54 di'gitos e, citando 
apenas mais um recur so, a portabilidade do 
fonte entre miquinas diferentes. Esse com- 
pilador possui muitos recursos novos e podero- 
sos seen perder a compatibilidade com o Stan- 
dard, da Microsoft. 

O ZBASIC 3.0 i um compilador que tern 
versdes implantadas em miquinas com CP/M-80, 
Apple, IBM-PC, Macintosh e outras. Deste mo- 
do, um sistema comercial ou um utilitirio escri- 
to em ZBASIC 3.0 i quase imediatamente trans- 
portivel para outros equipamentos, precisando 
de mmimas alteragdes ou ati mesmo nenhuma, 
dependendo do programa escrito e de seus ob- 
jetivos. Posso entao desenvolver no meu TRS- 
80 programas que posteriormente serao implan- 
tados em um IBM-PC! (...) 

3 — E aqui vai mais um software valiosi'ssimo 
nesta perspective de compatibilidade e transpor- 
tabilidade: HyperCross ou SuperCross/xt. Per- 
mite que voci trabalhe com mais de 170 for- 
matos de disquetes diferentes, isto i, voci pode 
declarer que quer trabalhar com um drive no 



formato IBM-PC e um outro no formato Super- 
brain etc.. Desta forma, voci realiza a migragao 
de fontes (ex. feitos em ZBASIC 3.0), dados de 
arquivos (ex. gerados pelo Visicalc em formato 
OIF), relatdrios gravados em arquivos de disco 
etc.. 

4 — Como editor de textos temos no TRS-80 
o SuperScripsit que possui recursos compari- 
veis ao Wordstar. Mas ultimamente tern ganho 
bastante terreno o editor ALL-WRITE que se- 
gue a filosofia do editor DCF da IBM para ma- 
inframe, isto i, voci controla a edigao do texto 
atravis de Control Words aliadas is facilidades 
dos micros (Control keys, recursos grificos da 
tela etc.). 

Utilizando-se o Dot-Writer i possivel ainda 
imprimir textos com letras em formato gbtico, 
grego etc. (ou, se preferir, voci mesmo pode 
criar o formato das letrasl). 

5 — Para assembler um programa nada melhor 
que o MZAL. E fantistico! Nao use o M80 da 
Microsoft, ele i muito lento e sem flexibilidade 
alim de nio ter bons recursos de macro. O 
MZAL i rapido, vem com editor full -screen, 
linker, disassembly, monitor-debug e permite 
que voci mantenha uma biblioteca de sub-ro- 
tinas realocaveis. 

Recentemente foi langado um novo assem- 
blador, o MRAS, que parece superior ao MZAL, 
mas ainda nao o avaliei. 

Gostaria de comentar uma confusao comum 
que se faz aqui no Brasil com as miquinas TRS- 
80: a Proldgica tern sido a empresa que efetiva- 
mente mantim uma linha de computadores 
compati'vel com os TRS-80 americanos. E hi 
mais ou menos um ano ela langou um novo mo- 
delo com CP/M Standard, isto 6, executa-setoda 
a biblioteca de software da linha TRS-80 e tam- 
bim toda a linha de software CP/M. Portanto, 
hoje em dia, no Brasil, falar em TRS-80 i falar 
em M80 (computador da Proldgica). 

Mesmo os CP 500 antigos podem ter CP/M 
instalando-se placas da Microsol de CP/M e 80 
colunas. Pode-se dizer que hoje quase todo 
TRS-80 "brasileiro" tambim i capaz de execu- 
tar o sistema operacional CP/M. 

O que me intriga i que quando alguim fala 
sobre TRS-80, no Brasil, jamais cita as capacida- 
des do CP/M; mas quando um usuirio de Apple 
comega a falar, sempre scab a citando programas 
ou capacidades do CP/M (que nao s£o standard, 
tendo no minimo que se instalar duas placas). 
Veja, na mesma reportagem, quando sao apre- 
sentados os cinco programas mais importantes 
de Apple: dois deles rodam em CP/M, ou seja, 
rodam em qualquer miquina que suporte o CP/ 
M, como o M80, o Super -7000, etc.. (...) 

Para finalizar, gostaria de ver MS divulgan- 
do, calma e eficientemente, as virias capacida- 
des que o TRS-80 naciortais possuem a fim de, 
que as pessoas possam efetivamente utilizer 
bem seus equipamentos. 

Eu, particularmente, devido ao tipo de uti- 
lizagao que dou ao meu CP 500 (+ placas HOL- 
MES), gostaria de ler em MS inform agoes so- 
bre funcionamento interno do M80, como ele 
chaveia os recursos de CP/M, ocontrole da pla- 
ca de 80 colunas etc. . 

Claudio Marques Dicolla (Sao Paulo — SP) 

Com o langamento do primeiro nCimero 
de MICRO SISTEMAS, hi cinco anos, nos 
comprometemos a sort ear mensalments uma 
assinatura da revista para os qua nos esc re 
vessam. E o acordo foi cumprido. 

A parti r da prbxima edigao, MS iniciari 
uma nova fasa, passando a sortear duas 
assinaturas por mis. Entre tan to, neste novo 
tipo de promogio, o sorteio seri feito ape- 
nas entre os au tores de artigos e programas 
a os colaboradoras da Segio Dicas. 

Envie sua correspondencia para: ATI — Anilisa, 
Teleprocessamento • Informitica Editora Ltda., 
Av. Presidente Wilson, 165 /gr. 1210, Cantro, 
Rio de Janeiro/ RJ, CEP 20030, Segio Cartas/ 
Redagao MICRO SISTEMAS. 
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CP500Compacto 



Micfoprocessodor Z-80A 



Memoria RAM maxima do sistema de 64 Kbytes 

Teclado profissional de tecnologia capacitiva, com numerico reduzido 

Video de 12" de fdsforo verde com controle de intensidade 

Interface para impressora paralela 

Interface serial padrdo RS 232C externa (optional) 

Opera com 1 ou 2 sistemas operational, o ''DOS 500" e o "S0-08" 

(Compatfvel comoCP/M) 



CARACTSRlSTICAS TtCNICAS 

• Memoria RAM: 256 Kb 
expansivel sem uso de slots 
a 512 Kb. 

• Membri a ROM 16 Kb. 

• Video fbsforo verde de 1 2" 
com controle de intensidade. 
Alta resolu^oo: 128.000 
pontos. 

• Teclado de 89 fedas com 
caracteres em portugues, 

1 0 tedas de fun^oo e numdrico 
reduzido. 

• Microprocessodor 8088 
4,77 MHz. 

• Discos flexiveis 2 unidades slim 
face dupla, com capocidode 
de 360 Kb. 

• Porta paralela para impressora. 
\ • Saida simuhanea para monitor 
^ de video coloodo podroo RGBI 

• 2 slots de expansao. 



IMPRESSORA 1 



COMPATIVEL 
COM A 
LINHA PC 



l*pr*ss3o ee 
Cerecteres Normsis 

Node Coaeneido - IwriM 16,7 
C.r.ct arts /Poland. 

Expand ± do 

Qualidade Carta 
Iepreaalo a S3 CPS 

Perei te o Uso de 
Cerecteres itbl icos 

Texto ee Negrito 



Velocidade de Impressao 

Modo normal 250 cps 132 colunas 



SISTEMA 

PROFISSIONAL 

16BITS 



CONFIGURAQAO BASICA: 

— SP16 com 2 drives 5 1 /4", face dupla 

— 320 K bytes de membria RAM 

— Microprocessador INTEL 8088 a 4,77 Mhz 

— Porta RS232 e Paralela 

— Placa “MAIN BOARD" com 7 slots. 

CONFIGURAQAO COM DISCO RIGIDO: 

— SP16 com 1 drive 5 1/4'*, face dupla 

— 320 K bytes de mem6ria RAM 

— Disco Rigido (Winchester) de 10 e 15 M bytes 

* Kit expansao de membria (opcional) 640 K bytes. 

• Sistema operacional SO- 16, compatfvel com MS-DOS 2.1 1. 



DATAPLEX Sistemas de Gerenciamento de Banco de Dados QUICKFILE* 



223-7234 

222-0016 

223-7388 



REVENDAS 



CAPITAL E INTERIOR: 

e Sio Paulo SP. Amarojom (011 288-19001 • Bolsa do Micro (011 291-42121 • Cmotiea (011 36 €961) ec.jtac (011 288-5413) • City Micro. (011 261 3633) 
e Computer Hou«e (011 575-2034) e Engamicro (011 872-0854) e Filer. I (011 220 3833) • Garra (Oil 884 3042) • Iguattm.cro (Oil 8156701) • N C. Micro 
1011 533 43881 eopu. (Oil 9146444) 4P,jon 1011 259 7816) «Provac (Oil 914 2844) • Sonora (Oil 227-8790) • SOS Computadore. (Oil 826-0466) • Tropical 
(01 1 543-98591 • Bauru: Microldflica (0142 236142) • Franc a: Microaoft (016 723-1527) e Itapenninge: Ace-lnformitice (0152 710-02291 • Jundial: Prom4t.ca 
(Oil 436 2541) e R.be.rio Prato: Detado. 1016 635 2331) • Santo. Alta Rawlucao (0132 67-2496) • Nadait (0132) 32-7045 • Sio Bernardo do Cempo. Micro. 
(Oil 448-6234). 

OUTROS ESTADOS: 

e BeMm-PA: Mamdna (091 225-20011 • Bato HonjomaMG: Computron.* (031 225-3305) • Digildgica (031 2234966) e S.ttama (031 2274497) e Braiflia-OF : 
SBM (061 2246100) • Conc6rd.a SC: Dig.tac (049 9446354) e Cur.tfcaPR: CRV (041 224-8544) • CSR (041 232-1750) • Fortalaia-CE: Si«comp (085 244491 1) 
• Go lima GO: Soft New. (062 224-9322) • Govarnador ValadaravMG: Computron (0332 216412) • Juiz da Fora4MG: Exitu. (032 213 24941 e Meneu.AM 
Cap Cant (092 237-14921 eMicrodata (092 2336135) • Porto Alegre RS: Herco* (0512 254923) eMult.programa 10512 3369891 • Porto Vettio RO: Oatam.cro'« 
1069 2216858) • Rio Branco-AC: M .erode la (068 2246097) • Rio da Janeiro-RJ: Oatamemory (021 233 19701 e MC Micro 1021 252-9245) • Rent A Type 
(021 2854874) es.tteco 1021 220 9613) *Salvador6A: Computac 1071 2454321 ) •Vrt6ria-ES: Engetron (027 2236044) 





Todo programador sabe como e importante (e dificil , no Brasil) conhecer o 
sistema operacional de sua maquina. Se voce tem um compatfvel com o ZX 
Spectrum, ai vai um presentao: a l. a parte de um artigo contendo... 



O mapa da ROM 
do TK90X 

Alvaro Ferreira de Freitas Borja 



E spero que este mapa da ROM venha 
aiudar aos usuarios tupiniquins do 
l\ Spectrum, e porque nao dizer, 
aos usua'rios do seu similar nacional, 
o TK90X, visto que infelizmcnte os 
fabricantes brasileiros (com raras excesses) 
ainda nao se convenceram que o usuario pre- 
cisa de mais informagdes sobre o equipamento 
que adquire. pois sem elas fica muito dificil 
(ou impossivel) o desenvolvimento de algo 
mais complexo (ou serio, como preferirem 
chamar). 

Quern ja teve a oportunidade de rodar os 
programas importados, se 6 que algum progra- 
ma (dos bons) para o TK90X nao o seja, sabe 
do que estou falando. 

Para os que gostam de programar em lin- 
guagem de maquina e possuem um TK90X, 
como o autor, desejo que este artigo venha 
ajudar ou, pelo menos, dar o pontape inicial 
para um melhor aproveitamento dos recursos 
desta maquina fantastica. 

ROM DO ZX SPECTRUM 

O ZX Spectrum possui um monitor ocu- 
pando 16 Kb de programas escritos em lin- 
guagem de maquina do microprocessador Z80. 
Este monitor esta dividido em tres partes prin- 
cipais, que sao: rotinas de entrada e saida, in- 
terpretador BASIC e opera^ao de expressoes. 

Rotinas de restart e tabdas - no iriicio do 
programa monitor estao localizadas as varias 
rotinas de restart que sao chamadas por meio 
da instru^o RST. Todos os restarts do Z80 
sao usados; por exemplo, RST 08 6 utilizado 
para mensagens de erro do sistema. Nesta par- 
te do programa monitor estao as tabelas que 
contem a forma expandida dos tokens e codi- 
gos-chave. 

Rotina do tedado - € feita uma leitura do te- 
clado a cada 1/60 de segundo (ou 1/50, de- 



pendendo da localidade); a rotina de teclado 
retorna com o codigo do carater requerido. 

A todo instante o registrador E retorna 
com um valor na faixa de 03-39, que repre- 
senta cada uma das 40 teclas do teclado ou 
255, caso nao haja nenhuma tecla pressiona- 
da. 

Rotina de Som - o Spectrum possui um alto- 
falante simples e uma nota e produzida, sen- 
do usada repetidamente a instru^ao OUT, de 
modo apropriado, na porta 254 (FEh). 

Nota: o TK90X utiliza o alto-falante da pr6- 
pria televisao. 

Rotinas de o>pera<;ao com o cassete - ao con- 
trary do ZX81, no Spectrum este 6 um b lo- 
co bastante extenso (1.329 bytes). 

Programas escritos em BASIC ou blocos de 
dados, sao precedidos por um cabe^alho de 

17 bytes header (Veja a materia Anali- 

sador de header em MS n9 53, pag. 34), que 
€ salvo primeiramente. Este cabe^alho descre- 
ve as caracteristicas do bloco de dados que 6 
gravado ap6s ele. 

Em todos os casos, (SAVE, LOAD, MER- 
GE e VERIFY) os pares de registros DE cen- 
tum o comprimento do bloco; o par XI con- 
tem o endere«;o basico, e o registro A 6 carre- 
gado com 00, para o caso de um header, ou 
FFh (255), para um bloco de dados/progra- 
ma. 

Rotinas de manipulate 2o do video e impressao 

- todas as rotinas de entrada/saida do Spec- 
trum sao vetorizadas atrav6s da irea de infor- 
maedes dos canais e fluxos. 

No Spectrum, normalmente as entradas 
sao possiveis somente pelo teclado, porlm 
saidas podem ser direcionadas para a impres- 
sora, parte superior ou inferior do video. 

Rotinas de executjao - nesta parte do progra- 
ma monitor, esta localizado o procedimento 



de inicializa^ao e o loop principal de execu- 
9ao do interpretador BASIC. 

Toda Unha BASIC quando retorna do edi- 
tor 6 checada quanto a correta sintaxe e entao 
6 salva na irea de programa, isto para o caso 
de iniciar com um numero de linha; caso con- 
trdrio, 6 executada imediatamente. 

Interpreta^ao do comando e a linha BASIC - 
esta parte do monitor considera uma linha 
BASIC como sendo um conjunto de declara- 
edes e, no seu procedimento, cada declara^ao 
e iniciada por um comando particular. 

Rotinas aritmeticas - o Spectrum opera com 
dois tipos de numeros: valores inteiros que va- 
riam de -65535 a +65535 ou numeros de 
ponto flutuante na forma de cinco bytes (foi 
mantido o padrao do ZX81). 

O calculador de ponto flutuante - o ealeu la- 
dor do Spectrum opera numeros e strings, e 
estas operates sao especificadas por literais. 
Essa pode, portanto, ser considerada como 
9endo uma linguagem interna de operafao do 
stack no calculador. 

Esta parte do programa monitor contim 
rotinas para todas as fringes aritmeticas. As 
aproximapSes para SIN x, EXP x, LN x e 
ATN x sao obtidas pelo desenvolvimento dos 
polindmios do Chebyshev. 



As rotinas de restart e tabelas 



0000 Rotina de inicializafao 

(START). As interrupsdes mascara veis sao de- 
sabilitadas, e o par de registradores DE 6 car- 
regado com o valor miximo para o topo da 
RAM. 

0008 Rotina das mensagens de er- 

ro do sistema. O ponteiro de erro 6 ajustado 
para a posi^ao de erro. » 

0010 Imprime o career cujo o6di- *. 
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BTC-XTe BTC-XT TURBO 

Alta Tecnologia 




Versatilidade com Economia 



100% COMPATIVEL COM IBM PC/XT* 
HARDWARE 

- UNIDADE CENTRAL DE PROCESSAMENTO 

PROCESSADOR 

* INTEL 8088 da 16 bit*, com operagSo a 4.7 e tamb4m 8 Mhz na 
varsio turbo 

* Font* 190 W 

* Raldgio n«o voldtil 

* Capacidade da adaptacfo da co-procassador 8087, para aritmttica da 
ponto flutuanta 

* Capacidada da memdria da 640 Kbytes "on board" 

* EPROM da 128 Kbytas, contando programas da auto-teste da hard- 

wara 

* Placa opcional qua. integrada A CPU, parmita um 8umento da *ua ve- 
locidada da 10 a 45%, al4m da parmitir a execupSo da programas 
•ob CPM versJo 2.2 

TECLADO 

* Taclado eletrdnico ergondmico, com axcalanta "fead-back", com 
buffar da 20 car act a res, totalmante compatfvel com o taclado IBM 
PC/XT* com 85 taclas 

CONTROL ADORES 

* Procassador da E/S para taclado 

* Porta sarial RS 232 C, para transmissfo da dados am modo assfn- 
crono 

* Sagunda porta sarial (opcional) idintica 4 primaira 

* Controlador da at* 2 drives da discos flexfveis da 5 1/4" formatando 
360 Kbytas 

* Porta paralela para imprassoras com pad r So da comumcapSo cen- 
tronics 

* Porta conactora para "Joystick" 



Controlador da vfdeo colorido com resoiupSo grifica da 640 x 200 
pontos am uma cor ou 320 x 200 pontos am quatro cores (uma 4 
back ground), obedecendo ao pad r So PC.* Conexfo RGB ou RF. 
Inclui interface para "light -pan" 

* Placa opcional padrSo HERCULES com resolupio da 720 x 348 
pontos monocromiticos, caractaras da 9 x 13 pontos no modo tax- 
to. Esta placa possui ainda uma porta paralela para impressora. 

perifEricos 

* Discos flexfveis da 360 Kbytes 

* Disco rfgido (tipo Winchester) 

* Monitor monocromltico (fdsforo varde) videocompo 

* Monitor policromltico videocompo 

* OppSo da utilizaptfo da unidade da fita "streamer" 

* Sistema oparacional para micros CP/M versSo 2.2 (quartdo utilizada 
a interface prdpria) 

LINGUAGENS DE PROGRAMAQAO 

* BASIC, COBOL, FORTRAN, PASCAL, ate 

SOFTWARE DE APOIO E DE APLICACAO 

* Qualquar software axacutAval am micros compatfveis com IBM 
PC/XT* 

* marca registrada IBM 

BRASIL TRADE CENTER 

IPANEMA- R. VISC DE PIRAJA, 580 U. 226 - Tel.: 239-01 91 

CENTRO - R. ASSEMBLElA, 10 S/S 1 1 2 - Tel. : 232-8430 

NITEROl - R. LOPES TROVAO, 134 S/L - Tel.: 710-3659 

TIJUCA - R. CONDE DE BONFIM, 229 L/A - Tel.: 284-2031 

CARREFOUR - AV. DAS AMERICAS (GALATICA) - Tel.: 325-3481 

Representante am Belo Horizonte 

AV. AFONSO PENA, 4166 - Tel.: (031) 223-8686/225-9498 






O MAP A DA ROM DO TK90X 



go esti no registrador A. 

0018 O conteudo da posicao cor- 

rente endereyada por CH-ADD 6 buscada : um 
retorno 6 feito se o valor presente for de um 
cariter printivel, caso contririo, CH-ADD 6 
incrementado e o teste repetido. 

0020 Quando uma linha BASIC 6 

interpretada, esta rotina 6 chamada repetida- 
mente ao longo da linha. 

0028 Desvia para o calculador de 

K nto flutuante. 

30 Esta rotina cria espaco na 

area de trabalho. O numero de espacos 6 de- 
terminado pelo valor corrente no par BC. 

0038 Interrupcao mascarivel, sem- 

pre que ocorre o clock t incrementado e 6 fei- 
ta uma varredura no teclado. 

0066 Interrupcao nao mascarfvel 

(NMI). Se a variivel do sistema NMIVCT 
(23728) for 0, ocorreri um reset (no TK90X, 
executara um saho para o endere^o que esti- 
ver armazenado nesta variivel, porim, 0 nao 
reseta). 

007D O valor presente no regis- 

tro A 6 testado para ver se este 6 printavel. 
0095-0204 Tabela dos tokens ; o ultimo 

byte de cada token esta com o bit 7 setado. 
0205- 02 2B Tabela das chaves principals 

(modo L e CAPS SHIFT). 

022C-025F Tabela do modo estendido. 

0260 - 0269 Tabela dos codigos de con- 

trol (tecla digitada + CAPS SHIFT). 
026A-0283 Tabela dos simbolos (tecla 

+ SYMBOL SHIFT). 

0284 - 028D Tabela do modo estendido 
(CAPS SHIFT + SYMBOL SHIFT + tecla). 

Rotinas do teclado 

028E Rotina de leitura do teclado; 

se nenhuma tecla estiver pressionada, o par 
DE retorna com o valor 65535. 

02BF Esta rotina 6 chamada sem- 

pre que ocorre uma interrupcao mascarivel. 

Em uso normal, ocorre uma vez a cada 20 ms. 
A finalidade desta rotina 6 ler o teclado e de- 
terminar o valor da tecla pressionada. 

0310 Sub -rotina de repet icao de 

tech. Havera uma repetido de tech, se na pri- 
meira ocasiao eh ficar pressionada por um pe- 
n'odo de 0,7 segundos, e, posteriormente, se 
ficar pressionada 0,1 segundo, 

03 IE O valor da tech 6 testado 

e um retorno 6 feito, se nSo houver tecla pres- 
sionada ou somente SHIFT; caso contrario, o 
oddjgo desta tech i achado. 

0333 Rotina de decodificacao do 

techdo. Esta rotina i entrada com o cddigo 
principal do registro E, o valor das FLAGS em 
D, o valor no modo do registro C e o byte in- 
vert ido no registro B. 

Rotinas de som 

03B5 Sub-rot ina que gera som no 

alto-fahnte. A entrada i feita com o par de re- 
gistradores DE contendo o valor “F •T”, onde 
uma nota de freqilinch F tera uma duracao 
de T segundos, e o par HL contera um valor 
igual ao ntimero de T states do loop de tem- 
porizacio dividido por 4. 

03F8 Comando SOUND; esta sub- 

rot ina 6 entrada com do is mimeros na pilha 
do calculador. O numero no topo representa a 
tonalidade da nota e o numero abaixo.a dura- 

S*6E-04A9 Tabeh dos SEMI-TONS. 

Rotinas de opera^io com cassete 

04C2 Salva o cabe^alho (header) e 

posteriormente o programs corrente na me- 
mdrh ou bloco de dados. 

05 3F Esta sub-rot ina i comum 

tanto para o SAVE como para o LOAD. A 
borda 6 seta da com a cor original, e a tech 
BREAK € testada. 



0556 Carrega o header e depots 

carrega (ou verifies) um bloco de dados. 

0605 Este ponto de entrada iusa- 

do por todas as quatro in strides (SAVE, 
LOAD, VERIFY e MERGE). O valor conti- 
do na variivel T-ADDR (23668) 6 que per- 
mit ira' fazer a dtstinfao entre as quatro ins- 
tructs. 

0642 Indica erro do tipo F 

no me invalido. 

0670 Idem erro tipo 2 va- 

riivel inexistente. 

07CB Rotina de controle do VE- 

RIFY. 

0802 Sub -rot ina para carregar um 

bloco de dados. £ utilizada por todas as ro- 
tinas de carregamento (LOAD, VERIFY e 
MERGE). 

0808 Rotina de controle do carre- 

gamento de um programs BASIC, varh'veisou 
um array. 

08B6 Rotina de controle do MER- 

GE. 

09 2C Sub -rot ina para ex ecu tar 

MERGE numa linha ou variivel. 

09A1 -09F3 Tabeh de mensagens do cas- 
sete. Cada mensagem 6 mostrada com o Ulti- 
mo carat er invert ido. 

Rotinas de manipula^ao do video 
e impressora 

09F4 Esta rotina 6 entrada com o 

registrador A contendo o codigo de um cara- 
ter de controle, um cara't er printavel ou um 
token. 

0AI1-0A22 Tabeh dos caracteres de con- 
trole. 

0A23 Sub-rotina para mover o cur- 

sor para a esquerda. 

0A3D Sub-rotina para mover o cur- 

sor para a direita. 

0A4F Sub -rot ina d e carriage return. 

0A5F Sub-rotina para imprimir 

usando a tabuhcao com virgula (cohina 0 ou 
16). Ex.: PRINT,, “okl”. 

0A69 Imprimir uma interrogacao 

sempre que for feita uma tentativa de impri- 
mir um codigo nfo printivel. 

0A6D Rotina de caracteres de con- 

trole com operandos. 

0ADC Esta sub-rotina guarda a po- 

sicao da linha e cohina, bem como o endere- 
co do pixel na variivel do sistema aproprhda. 
6B03 Sub-rotina para buscar os pa- 

rametros da posicao corrente na variavel do 
sistema apropriada. 

0B 24 Sub-rotina para imprimir um 

cariter qualquer. 

0B7F Sub-rotina usada para im- 

primir todos os bits dos caracteres (matriz 8x8). 
Na entrada, o par de registradores DE contem 
o enderefo base da tabeh de caracteres; o par 
HL, o enderec© de destino; e o par BC.osva- 
lores da linha e cohina ament es. 

0BDB Seta byte na irea de atri>u- 

tos. 

0C0A Sub-rotina usada para impri- 

mir mensagens e tokens. O registro A e carre- 

e do com o ntimero da mensagem ou do to- 
n da tabeh. O par DE e carregado com o 
endereco base da tabeh. 

0C41 Retorna com o par DE apon- 

tando para o cariter inichl da entrada reque- 
rida. 

OC55 Esta rotina € chamada a 

qualquer momento para forcar a necessida- 
de de um scroll na teh. 

0D4D Faz uma coph temporirh 

dos itens de cor. 

0D6B Comando CLS. 

0DAF Limpa toda a irea de vi'deo. 

£ usada pelo CLS, Iistagem automat ica e ro- 
tina principal de execugao. 

0DD9 Seta parametros para CLS. 

0DFE Sub-rotina de scroll. O regis- 



tro B e carregado com o ntimero de linha s a 
serem rohdas (B -23). 

0E44 Esta sub-rotina limpa as “n" 

linhas da parte inferior do vi'deo, sendo que o 
numero de linhas deveri ser carregado no re- 
gistro B. 

0E88 Limpa a irea de atrimtos. 

0EAC Comando COPY. 

OECD Envh para a impressora o 

conteudo do buffer de impressio. 

0EDF Limpa o buffer da impresso- 

ra. 

0EF4 Coph uma linha na impres- 

sora. 

0F2C Rotina do editor. O editor i 

chamado em duas ocaskSes: quando da entra- 
da de uma linha BASIC e peh rotina do co- 
mando INPUT. 

0F81 Esta sub-rotina adiciona um 

eddigo para o corrente EDIT ou linha INPUT. 
0FA0-0FA8 Tabeh das techs de edi^io. 
0FA9 Sub-rotina de edi^ao. 

0FF3 Cursor para baixo, no modo 

de edifao. 

1007 Cursor para esquerda, no 

modo de edi^ao. 

100C Cursor para direita, no modo 

de edi^ao. 

1015 Sub-rotina para apagar um 

cariter, no modo de edi^ao. 

101E Os dois prdximos eddigos da 

rotina de entrada s£o ignorados. 

1024 Sub-rotina de entrada para a 

edicao. 

1031 Sub-rotina de corte. O ende- 

re$o do cursor 6 canegado no par HL e este i 
decrementado, a nao ser que o cursor ja este- 
ja no inicio da linha. Cuidado 6 tornado para 
nao co lo car o cursor entre os caracteres de 
controle e seus parametros. 

103E Loop para garantir que os 

caracteres de controle nao sejam separados de 
seus parametros. 

1059 Cursor para cima, no modo 

de edicao. 

1097 Sub-rotina para limpar a area 

de edicao e espaco de trabalho. 

10A8 Esta 6 uma das importantes 

sub -rotinas; eh retorna o codigo da ultima te- 
ch pressionada no modo CAPS LOCK. A tro- 
ca no modo e parametros de controle da cor 
sao manejados dentro da sub-rotina. 

HID Esta sub-rotina 6 chamada 

sempre que a linha na irea de edicao ou IN- 
PUT precisem ser printados na parte inferior 
do vi'deo. 

1190 Esta sub-rotina retorna com 

o par HL apontando para a primeira posicio 
e o par DE para a ultima posicao da irea de 
edicao ou espaco de trabalho. 

11A7 Sub-rotina para remover a 

mdscara da marca de inicio da representacao 
em ponto flutuante em uma linha BASIC (cd- 
digo 14). m 

m 



Alvaro Ferreira de Freitas Borja estd cursando 
engenharia civil, na UFPA. Atualmente. traba- 
Iha como Desenhista-Projetista na Tetepari. 
sendo tambdm usudrio dos micros TK83 e 
TK90X. 
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SOFTWARE P/APPLE E IBM-PC 



GRAFIX FT 80 



CONTABILIDADE 
FOLHADE PAGAMENTO 
CONTROLE DE ESTOQUE 
CONTAS A PAGAR/RECEBER 
CONTROLE BANCARIO 
ADMINISTRATIVO DE IMOVEIS 
MALA DIRETA 

ANALISE GRAFICA (CART. DE 
AQOES) 

TODOS OS SOFTWARES 
C/MANUAL E TREINAMENTO 
DEPT9 SOFTWARE: 284-2031 



80 colunas, 160 CPS, rolo p/papel solto, 
tractor p/formul4rio contCnuo, compatfvel 
com todos ot micros. 

GRAFIX HS 100 



PROMOQAO BTC 

PACOTE 1 VALOR 

1 CPU TK3000 lie com 64K 
1 INTERFACE P/DRIVE 
1 DRIVE 5 1/4 

TOTAL DO PACOTE 1 17.400,00 

PACOTE 2 

1 CPU TK3000 lie com 64K 

1 INTERFACE P/DRIVE 

2 DRIVES 5 1/4 

1 PLACA DE CPM 
1 PLACA DE 64K + 80 COLUNAS 
1 MONITOR VIDEOCOMPO 
TOTAL DO PACOTE 2 30.200,00 



Grafix HS 100 132 colunas - 160 CPS. To- 
talmente grifica. CompatCvel c/Apple, IBM 
PC. etc. 

CURSO 
DE INGLES 

Was* BTC 

OUNICO 

^ NO BRASIL 



PACOTE 3 

1 CPU TK3000 lie com 64K 

1 INTERFACE P/DRIVE 

2 DRIVES 5 1/4 

1 PLACA DE CPM 
1 PLACA DE 64K + 80 COLUNAS 
1 MONITOR VIDEOCOMPO 
1 INTERFACE MICRODIGITAL 
P/IMPRESSORA 
1 IMPRESSORA GRAFIX80 F/T 
TOTAL DO PACOTE 3 . . . 46.8000,00 



SERVIQO EXPRESSO PARA TODO O BRASIL 



BRASILTRADE CENTER 



IPANEMA - R. VISC. DE PIRAJA, 580 U. 226 - Tel.: 239-0191 
CENTRO - R. ASSEMBLElA, 10S/S 1 1 2 - Tel.: 232-8430 
NITEROl - R. LOPES TROVAO. 134 S/L - Tel.: 710-3659 
TIJUCA - R. CONDE DE BONFIM. 229 L/A - Tel.: 284-2031 
CARREFOUR - AV. DAS AMERICAS (GALATICA) - Tel.: 325-3481 
Representante am Belo Horizonte 

AV. AFONSO PENA. 4166 - Tel.: (031) 223-8686/225-9498 



VENDAS DIRETA: PEQA UM REPRESENTANTE PELO TEL: 263-2124 





Mostraremos aqui um jogo simples, para os TRS-80, mas que, 
ao contrario da maioria, nao visa apenas divertir. Com ele, voce 
pode iniciar o estudo do Assembler e criar seus proprios programas. 



Assemble-se! 

Luis Maurfcio Chopard Bonilauri 



O Assembler e uma linguagem 
muito poderosa e sobrerudo 
rapida. Ent 2 o, por que n 2 o 
deixar um pouco o BASIC 
de lado e quebrar o tabu de que lin- 
guagem de maquina e um bicho-dc-sete- 
cabe^as e que so e dado aos genios co- 
nhecerem-na? 

Em certos programas, como em qua* 
se todos os jogos, a rapidez e imprescin- 
divel. 0 BASIC, como todos n 6 s sabe- 
mos, peca neste sentido. Poderiamos, 
para corrigir esse problema, usar um 
compilador, mas eles tern a desvantagem 
de gastar muita memoria, e o resultado 
nem sempre corresponde ao esperado. 
Ent2o, a solu^So e o Assembler. 

Para come 9 ar a escrever seus proprios 
programas nesta linguagem, voce deve 
observar alguns pontos: antes de tudo, e 
preciso arranjar um programa monta- 
dor (ou assemblador). Feito isto, escre- 
va os objetivos e os passos a serem per* 
corridos pelo programa. Voce ainda po- 
de fazer um fluxograma, mas isso nem 
sempre e necessario. So entSo comece a 
escreve-lo, linha por linha. £ muito im- 
portante tambem que sejam colocados 
comentarios em todas as instates e 
que se divida todo o programa em roti- 
nas independentes. Percorrendo todas 
essas fases c verificando se tudo esta cer- 
to, o seu programa tera sucesso garanti- 
do! 

Nada melhor, para come 9 ar, do que 
ter um programa de exemplo no qual se 



basear. £ por isso que apresentaremos 
um jogo simples, escrito em Assembler, 
mas que contem rotinas para se produ- 
zir jogos mais sofisticados ou outro pro- 
grama qualquer. Trata-se do SP ACE, 
para computadores TRS-80 e similares. 
Nele, voce comanda um canh 2 o situado 
na parte inferior do video que deve des- 
truir uma nave espacial inimiga que ten- 
ta invadir o planeta. Para cada nave des- 
truida, o jogador acumula 100 pontos; 
o jogo termina quando o inimigo conse- 
guir invadir o planeta. Os comandos uti- 
lizados s 2 o: as setas (<-*- ><-►>), 
para mover o canhSo; barra de espa 90 s, 
para atirar; e <CLEAR>, para parar o 
jogo. 

descriqAo do programa 

0 programa esta dividido em cinco 
rotinas bdsicas e diversas sub-rotinas. Se- 
gue adiante uma explica^o detalhada 
do que cada linha realiza e o seu efeito 
na exccu 92 o do jogo. 

A primeira parte do programa e a lis- 
ta de EQU (linhas 200 - 240). Na pri- 
meira instni 92 o temos: Vlt)EO EQU 
3C00H; ela faz com que toda vez que o 
rotulo “Video” aparecer na listagem, o 
computador trate-o como o numero 
3C00H, que e o endere 9 o inicial da tela 
na mem 6 ria. CLS ou 01C9H e o endere- 
90 da rotina ROM que apaga a tela e a 
coloca no modo de 64 caracteres por li- 



nha. PRINT tambem e o endere 90 de 
uma rotina ROM, que imprime um ca- 
rater na tela, determinado pelo regis- 
trador A. O quarto EQU e a rotina 
ROM de delay - ou atraso de tempo 
cujo valor deve estar em BC. INKEY ou 
049H e outra rotina ROM, que coloca 
o valor ASCII da tecla pressionada em 
A. 

A proxima instru 92 o - linha 250 - 
marca o inicio do programa em 7000H. 
O programa, entretanto, e realocavel em 
qualquer outro endere 90 , bastando mu- 
dar este endere 90 pelo desejado. As duas 
outras instru 96 es seguintes fazem com 
que o topo da pilha seja posto no inicio 
do programa. Este cuidado e necessario 
para que a pilha nffo fiquc situada 
nos endere 9 os ocupados pelo programa, 
o que causaria resultados imprevisiveis. 
Na linha 280, o programa e deslocado 
para a rotina ZERA, que tern como fun- 
920 zerar o score. Esta rotina foi cha- 
mada logo no inicio do programa por- 
que a rotina de titulo ira mostrar o sco- 
re, na tela, que deve estar zerado. 

Nas linhas 290 ate 330 est2 situada a 
primeira das cinco rotinas com a deno- 
mina 92 o de GAME. Esta rotina e a que 
controla todos os passos a serem dados 
pelo programa. Nota-se que ela n2o faz 
nada alem de chamar as outras rotinas 
a serem executadas. Prime iramente, ela 
chama a rotina do titulo, depois a de 
selecionar a dificuldade do jogo, a de ze- 
rar score e atualizar as pos^Oes das na- 
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ves, o jogo em si, e, finalmente, retorna 
a ela propria, num loop infmito. 

A proxima rotina (linha 340 a 510) 
e chamada de TlTULO. Sua primeira 
instrugSo e CALL CLS, que ira apagar 
a tela e coloca-la no modo de 64 carac- 
teres por linha. As proximas cinc» ins- 
trugdes tambem irSo apagar a tela, mas 
agora com espagos graficos - CHR$ 
(128) — porque a rotina de inversffo da 
tela, chamada a seguir, n3o inverte os es- 
pagos normais - CHR$(32). Nas linhas 
400 a 430 esta a rotina que most rani no 
video a mensagem 1 - Ml — definida 
no final do programa: prime iramente, o 
par HL e carregado com o inicio de 
Ml, e a sub-rotina MOSTRA e chama- 
da. Depois disso, o programa e desvia- 
do para outra sub-rotina PONTOS que 
ira exibir na tela o score. A proxima 
sub-rotina, denominada INVERT, 6 
aquela responsdvel pela inversSo da tela. 
Nas proximas duas linhas temos o atra- 
so de tempo, com o valor de 8000H. Nas 
linhas 480 e 490, checa-se a tecla< EN- 
TER >, ou scja, o registrador A e coloca- 
do com o conteudo do endere9o 3840H; 
se a tecla< ENTER >foi pressionada, o 
bit 0 deste endere90 e setado, entio, 
basta mascarar os demais bits, assumin- 
do os valores de A=l, se pressionado; e 
A- 0, se n§o pressionado. Observe a fi- 
gura 1. 

Na linha 520 temos a primeira sub- 
rotina — MOSTRA — que e usada para 



Figura 1 - Memdria do teclado. 

mostrar na tela uma mensagem aponta- 
da por HL. Na primeira instrugSo, o 
acumulador d carregado com o carater 
a ser mostrado. Se ele for igual a 0 o 
programa retorna; senao, este carater 
d impresso na tela e passa para o pro- 
ximo ate encontrar o carater 0. 

A sub-rotina seguinte e a chamada 
PONTOS, porque <5 ela que mostra os 
pontos obtidos pelo jogador, localiza- 
do no buffer SCORE na tela. Inicial- 
mente, HL d carregado com o numero 
de pontos que foi salvo em SA (soft- 
ware acumulador) que cstd situado na 
posigao 4121H da memoria. Apos isto, 
nos precisamos colocar SA como um 
numero inteiro, atribuindo o valor 2 no 
endere90 40AFH, que determina a pre- 
cisao de SA (assim temos: 2, para nume- 
ros inteiros; 4, para precisao simples; e 



8, para precisfo dupla). 

A proxima instrugao, na linha 620, 
chama uma outra rotina ROM, que con- 
vene SA para ASCII. O resultado em de- 
cimal e colocado num buffer em 41 30H, 
tendo 0 como finalizagao. Sendo assim, 
as linhas de 630 a 700 se destinam so- 
mente para imprimir na tela este buffer. 

A linha 710 faz o retomo para a rotina 
de chamada. 

Nas linhas de 720 a 870, temos a ro- 
tina de inversao de tela. Se, por acaso, 
quiser obter uma explicagao detalhada 
deste tipo de rotina, de uma olhada no 
programa FLASH ! Assembler, graficos 
e muita imaginafdo, publicado em MS 
n? 41, pagina 66, da autoria de Roberto 
Quito de Sant’Anna. 

Uma nova rotina aparece na linha w 
880. £ a rotina SELDIF, a qual selecio- St 



Quem tern tradkao 
em software, tem tudo. 




Faz a Folha de Pagamento semanal ou mensal, 
emitindo relatbrios como Guia de I APAS e FGTS. 
Relagdo de Empregos. I.R. e Banco. Informe e 
Rendimentos. Acumulados Anuais. RAIS e Red- 
bo de Pagamento. As tabelas sao modificadas pe- 
lo prdprio usudrio. 

Adiantamentos de saldrio, reajuste salarial, alte- 
ragdes de acumulados e outras fungoes que agi- 
lizam o processamento de Folha de Pagamento 
de sua empresa. 




A Contabilidade de um mes em apenas 2 horas! 
Este Sistema permite o cadastramento de histd- 
ricos padronizados e de piano de contas com ate 
5 nrveis. 

Emite Didrio, Razdo, Balancetes, Balango, De- 
monstragdo de Resultados, Demonstragdo de Lu- 
cres e Prejuizos acumulados. Listagem por cen- 
tra de custo e extrato de contas, entre outras 
fungdes. 




Controla o estoque de itens com Especificagdo. 
Estoque Minimo, Unidade, Fomecedor, Localiza- 
g3o e outras informagdes relacionadas no item 
como Custo Medio. Entradas e Saidas no perio- 
do. Listagens Geral e Parcial dos produtos, Lista- 
gem F isico-f i nancei ra, Listagem dos produtos 
abaixo do estoque minimo, Lista de Pregos e Eti- 
quetas, entre outras. 

Admite tambem, Reajuste de Pregos, Alteragoes 
de Dados e Exclusdo de Produtos. 



Tambem disponiveis para 
IBM-PC 




Rio: Av. Rio Branco, n? 45 - Gr. 1311 S.P.: Rua Xavier de Toledo n? 161 - Conj. 106 

Tels.: (021) 263-1241 e 2330615 Tel.: (Oil) 34-3083 



Empresa filiada a ASSESPR0 

Consulte^ios sobre outras 15 programas para a area administrativa, compativeis com as linhas TRS80 e Apple 
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1 SOFTWARE PARA CP 400 ECOMPATlVEIS 1 



APUCATIVOS: Processador de Textos 

PPTEXTO c/ acentuac^o em portugues. Plani- 
Ihas Eletronicas, Bancos de Dados. Pacotes In- 
teg rados. 

UTIUTARIOS: Editor /Assembler, Expansor 
de Tela. Supertec. Compiladores. Copiadores. 
Etc. 

GRAFICOS: DUMP P-500. Esquemas Eletroni- 
cos. Bjork Blocks. Comerciais. Graphicom e 
outros. 

LINGUAGENS: LOGO em portugues. PILOT 
para professores e uso didatico. PASCAL, 
C Basic. 

JOGOS: Muitos titulos para mencionar aquil 
Nossos catalogos mostram as telas dos jogos. 
Temos jogos exclusivos. Escolha melhor na 
Peek &Poke! 



SOFTWARE PARA CP 500 / CP 300 



— Processador de textos PPTEXT 500 DISCO 
c/ acentuapao. 

— Planilha Eletronica CALC -300. Unica em 2- 
80 para versao K-7. 

— Utilitarios copiadores para fita e disco. 

— Editor/ Assembler, monitor MACMON e tu- 
tor de linguagem de maquina. Em fita ou disco. 
Aprenda Z-80! 

— Compilador ZBasic. Produz codigo objeto 
com rapidez. 



SOFTWARE PARA LINHA MSX 



Revendemos cartuchos e fitas d os meihores 
precos Desenvolvemos titulos propnos. Entre 
em contato. 



A PEEK & POKE demonstra. garante edasu- 
porte permanente a seus programas. Venha 
conhec6 los ou solicite catalogo completo para 
oseu equipamento. 



PtEK b POKE MicrocompuUtJo • Com6rcio Lida 
Aw Brig Faria Lima. 1664 Cooj 1102 
01452 S4o Paulo SP Fooe 1011)8133277 



na a dificuldade do jogo. Na linha 880 
chama-se a rotina para apagar a tela; nas 
duas prdximas linhas ha a impressao da 
mensagem 2-M2. Na linha 910, a rotina 
de verificasSo do teclado e chamada 
para colocar o valor ASCII da tecla pres- 
sionada no acumulador. Se este resulta- 
do nfo estiver compreendido entre 0 e 
7, o programa volta para SI. Sendo o 
resultado aceitdvel, o programa continua 
na linha 960, a qual coloca o acumula- 
dor entre um numero de 1 a 8 (obser- 
ve que antes o acumulador estava entre 
48 e 55, que correspondem aos nume- 
ros de 0 a 7 em ASCII). A seguir, o acu- 
mulador £ multiplicado por duas vezes 
conforme a instru9ao SLA A. O resulta- 
do e salvo, na linha 990, em DIF, e o 
programa retoma para a rotina de cha- 
mada. A proxima rotina ZERA se en- 
contra nas linhas de 1010 a 1060. Em 
seu inicio, essa rotina zera o buffer 
SCORE, depois coloca em POSN2 (que 
e o buffer onde esta localizada a posi^So 
da nave inimiga) o valor de 15424 (vi- 
deo + 64), que corresponde a segunda li- 
nha da tela. Na linha 1060 o programa 
retorna. 

A partir da linha 1070 come$a a ro- 
tina do jogo propriamente dito. A pri- 
meira instru^o faz a chamada da roti- 
na para apagar a tela e logo apos a ro- 
tina de impressao dos pontos. Em segui- 
da, HL £ carregado com a posi$ao da na- 
ve conforme o comando feito pelo joga- 



dor, sendo este valor salvo em POSN1. 
Nas linhas 1 1 10 e 1 120 a “condifSo de 
tiro” £ zerada. (Nota-se que para Ti- 
ro=l, a rotina de tiro sera chamada; e 
para Tiro= 0, a rotina nao sera chama- 
da). 

Na linha 1 130, com o r6tulo J 1 , tern 
inicio o loop do jogo. HL £ carregado 
90m o endere90 de N 1 , que sSo os carac- 
teres graficos da nave 1 ; DE e carregado 
com a posi^ao na tela onde est£ situada 
a nave; BC e carregado com o numero 
de caracteres da nave que e impressa no 
video, na linha 1 160. 

As linhas de 1170 ate 1200 fazem as 
mesmas coisas que as outras quatro ins- 
tru^Oes anteriores, s6 que agora impri- 
mindo a nave 2. Observa-se que estas 
rotinas de impressao transferem somen- 
te o conteudo do endere90 onde estfo 
os caracteres das naves para o endere90 
especificado em POSN1 e POSN2. 

A linha 1210 carrega em A o valor de 
um byte da memoria do teclado que 
corresponde as setas <>-><—►>, a te- 
cla <CLEAR>e a barra de espa90, usa- 
das durante a execu9So do jogo. Feito 
isto, compara-se este valor com 2, que 
corresponde a tecla <CLEAR>. Se ela 
foi pressionada, volta para GAME; se- 
nao, o acumulador £ mascarado com o 
valor 0E0H, sendo o resultado armaze- 
nado em SALVA. Em seguida, o contcu- 
do de TIRO £ comparado com 1; se 
houver coincidence, o programa e des- 
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viado para J2, que corresponde a rotina 
de tiro. Na linha 1290, o acumulador 6 
carregado com o valor da tecla pressio- 
nada, e o bit 7 i testado. Se este nSo 
estiver ligado, ocorre urn desvio para 
TE1. 

As linhas 1320 e 1330 colocam no 
buffer TIRO o valor 1. As linhas 1340 a 
1370 colocam em POST1R (posi^So de 
tiro) o valor de POSN1 (posi^ao da nave 
1) mais 2. 

A seguir, temos o teste da seta direi- 
ta que corresponde ao bit 6. Se este nSo 
estiver ligado, h£ um desvio para TE2. 
Na linha 1410 o acumulador 6 carrega- 
do com o valor da penultima posi£fo do 
video e 6 comparado com espa^o CHR$ 
(32); sendo diferente, significa que a na- 
ve nSo pode mais se deslocar para a di- 
reita, havendo, entSo, um desvio para 
TE2. Se for igual a 32, POSN1 6 incre- 
mentado de 1. 

Na linha 1470, temos o teste da seta 
esquerda. Se ela nSo foi pressionada, o 
programa continua na linha 1560 (J3). 
Das linhas 1 500 a 1 520 temos o teste da 
menor posiijjio da nave 1 no video e nas 
linhas 1530 a 1550 o decremento de 1 
de POSN1. Posteriormente, temos o in- 
cremento da nave 2 — linhas 1560 a 
1580 — para nas linhas 1590 a 1640 tes- 
tar o fim do jogo, ou seja, comparar a 
posi^So da nave 2 com 3FC0H, que cor- 
responde a ultima linha do video. Em 
outras palavras: o momento em que a 
nave inimiga chega onde esta situada a 



nave comandada pelo jogador. 

A rotina de atraso de tempo, que va- 
ria conforme a dificuldade selecionada, 
estd situada entre as linhas 1650 e 1720. 
Na linha 1730 temos a rotina do tiro 
(J2) que atua, inicialmente, carregando 

0 HL com o valor de POSTIR, sendo 
que o tiro e apagado da tela na linha 
1740. Feito isso, HL 6 subtraido de 64, 
ou seja, o tiro passa para a linha anterior 
e, finalmente, HL £ salvo em POSTIR. 
Nas linhas 1780 a 1830, HL^ compara- 
do com 3C40H; se ele for menor, o pro- 
grama 6 deslocado para FTIRO, ou seja, 
nm do tiro. Nas linhas 1840 e 1850, 
checa-se se o tiro atingiu a nave inimiga; 
se isto ocorreu, o programa 6 deslocado 
para EXPL, senSo, 6 impresso na tela o 
career do tiro CHRS(255) e ha o retor- 
no para TE1. 

Na linha 1890 temos a rotina FTIRO 
ou Fim do Tiro, que apaga o tiro da te- 
la, coloca em TIRO o valor zero e retor- 
na para TE1. 

Na linha 1940 temos a rotina da ex- 
plosSo. At£ a linha 1970 a explosSo e 
impressa na tela na pos^So da nave ini- 
miga. Nas linhas 1980 a 2010, a nave 

1 6 reimpressa na tela porque pode ocor- 
rer dela estar apagada no video. As li- 
nhas 2020 e 2030 provocam um atraso 
de tempo e as linhas 2040 a 2080 con- 
tem as instru^tes que somam 100 pon- 
tos ao score. Depois, nas linhas 2080 a 
2110, a posi^So da nave 2 (POSN2) 6 



decrementada de 30 e, em seguida, o 
programa volta para o jogo. 

A rotina de Fim do Jogo, situada nas 
linhas de 2130 a 2190, mostra na posi- 
9^0 475 da tela a mensagem 3 para de- 
pois atrasar determinado tempo e re- 
tornar & rotina principal GAME. 

A partir da linha 2210, temos os buf- 
fers e as mensagens. 

DIGITAL AO DO PROGRAMA 

Para que as explicates acima sejam 
melhor compreendidas, 6 necessdrio ver 

0 programa em funcionamento. Se voce 
possui um montador assembler, simplcs- 
mente digite os mnemonicos da listagem 

1 e, ap6s criar seu programa objeto, po- 
derii rodar o jogo que, como )& foi dito, 
6 bastante simples, servindo apenas 
como exemplo das tlcnicas aplicadas. 
Caso nSo tenha como entrar com os 
mnemonicos, digite simplesmente os co- 
digos em hexadecimal da listagem 2, que 
correspondem ao programa da listagem 
1. Neste caso, os endere^os devem ser 
mantidos, n5o podendo entretanto o 
programa ser realocado. 



Luis Mauricio Chopard Bonilauri 4 autodidata 
nas linguagens BASIC e Assembler, nas qua is 
desenvohre prog ram as para micros das linhas 
TRS-80 e Sinclair. 
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00650 


LOOP 


00120 
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S P A C 
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00130 
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Var mo 1 
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00670 




00140 
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AllLOiX 
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00720 


INVERT 


00190 
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00200 


< 

s 

o 


EQU 


3C00H 


( 1NICIO DA TELA 






00210 


CLS 


EOU 


01C9H 


(ROTINA ROM P/LIMPAR TELA 






00220 


PRINT 


EOU 


033H 


(ROTINA ROM P/PRINTAR CARACTER 


00730 


INI 


00230 


DELAY 


EOU 


060M 


(ROTINA ROM P/ATRASO DE TEMPO 


00740 




00240 


INEEY 


EOU 


049H 


(ROTINA ROM P/VARRER O TECLADO 


00750 




00250 




ORG 


7000H 


1 INICIO EM 7000 H 


00760 




00260 


1NICI0 


LD 


HL. 1NICIO 


(PEGA ENDERECO DE INICIO 


00770 




00270 




LD 


SP.HL 


(E POE STACK POINT ANTES 


00780 




00280 




CALL 


2ERA 


(ROTINA DE 2ERAR DADOS 


00 790 




00290 


GAME 


CALL 


TITULO 


IROTINA DO TITULO 


00000 




00300 




CALL 


SELDIF 


1 SELECIONA DIFICULDADE 


00010 


















00320 




CALL 


JOGO 


( INICIA O JOGO 


00830 


IN2 


00330 




JR 


GAME 


(VOLTE P/GAME 


00840 




00340 


TITULO 


CALL 


CLS 


(LIMPA A TELA 


00058 




00 350 




LD 


HL, VI DEO 


(HL-INICIO DA TELA 


00860 




00360 




LD 


DE , VI DEO* 1 


(DE-PROXIMA POSICAO 


000 70 




003 70 




LD 


BC . 3FFH 


(BC-4 DE POS.DA TELA -1 


00080 


SELDIF 


00380 




LD 


(ML) ,80H 


(APAGA A PRIME IRA POSICAO 






00390 




LOIR 




IAPAGE TODO O RESTO 






00400 




LD 


HL. VIDEO-192 


(HL-INICIO DA IMPRESSAO 


009 10 


SI 


004 1 0 




LD 


(4020M) ,HL 


(E POE NO END. DO CURSOR 


00920 




00420 




LD 


ML. Ml 


(HL-INICIO DA MfcNSAGLMl 


00930 




004 30 




CALL 


MOSTRA 


(PR I NT A MESAGEM 


00940 




004 40 




CALL 


PONTOS 


(MOSTRA NA TELA OS PONTOS 


00950 




00450 


Til 


CALL 


INVERT 


(INVERTE A TELA 


00960 




00460 




LD 


BC . 0000H 


(VALOR DE ATRASO 


00970 




004 70 




CALL 


DELAY 


1 ATRASO DE TEMPO 










LD 


A, (3840H) 


(PEGA TECLA PRESSIONADA 


00990 




00490 




AND 


1 


[ MASCARA 


01000 




00500 




JR 


2, Til 


(SE FOR <>1 VA P/TI1 


01010 


2 ERA 


Mil 




RET 




(RETORNE 


01020 




00520 


MOSTRA 


LD 


A. (HL) 


(PEGA O CARACTER 


01030 




00530 




OR 


A 


(SETA OS FLAGS 


01040 




00540 




RET 


2 


(RETORNE SE 2ERO 


01050 




• v 90 




CALL 


PRINT 


(IMPRIMA CARACTER 


01060 




00560 




INC 


HL 


(END. DO PROX. CARACTER 


01070 


JOGO 


00570 




JR 


MOSTRA 


(E RETORNE 


01000 




00580 


PONTOS 


LD 


HL. (SCORE) 


(HL-PONTOS 


01090 





Ustagem 1 



LD 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

INC 

INC 

CP 

JR 

RET 

LD 



LD 

RLA 

JR 

RLA 

JR 

CPL 

RRA 

S CP 

RRA 

LD 

INC 

LD 

CP 

RET 

JR 

CALL 

LD 

CALL 

CALL 

CP 

JR 

CP 

JR 

sue 

SLA 

SLA 

LD 

RET 

XOR 

LD 

LD 

LD 

LD 

RET 

CALL 

CALL 

LD 



(4121H) ,HL 
A, 2 

< 40AFH ) . A 
0FBDH 

HL.4130M 
DE. VIDEO* 30 
A, (HL) 

(DE) , A 
DE 
HL 
00H 

N2.LOOP 
HL. VIDEO 



A, (HL) 
NC, IN2 



C, IN2 



(HL) .A 
HL 
A, H 

40H 

2 

INI 
CL9 
HL . M2 
HOSTRA 
INKEY 
■ 0 ’ 

C.S1 

•7'*I 

NC, SI 

2PH 

A 

A 

(DIP), A 
A 

( SCORE ) . A 
( SCORE ♦ 1 ) . A 
ML. VIDEO-64 
<POSN2> .HL 

CLS 

PONTOS 

HL. VIDEO-990 



I POE VALOR DE HL Eh SA 
IA-2 

(SA-NO. INTEIRO 
1 ROTINA ROM P/TRANSFOFMAR 
VALOR DE SA EM ESC I I 
IML-INICIO DE ASCII 
(DE-INICIO DE IMPRESSAO 
I A-CARACTER DE ML 
IIMPRIME A NA TELA 
I INCREMENTA DE 
I INCREMENTA HL 
IVE SE A-0 
ISENAO VA P/LOOP 
I RETORNE 

(HL-INICIO DA TELA 



IPEGA CARACTER DA TELA 
I BIT 7 NO CARRY FLAG 
I VA P/IN2 SE NO CARRY 
I BIT 6 NO CARRY FLAG 
1 VA P/IN2 SE CARRY 
I COMPLEMENT A BITS 0-5 
(RESTORA BIT 6 
I SETA CARRY FLAG 
I RESTORA BIT 7 
I POE CARACTER NA TELA 
I PRO X I HA POSICAO 
1 A-MSB DE ML 
(TESTA SE FIM DE TELA 
(RETORNE SE POSITIVO 
(SENAO VA P/ INI 
(LIMPA TELA 

(HL-INICIO DA MENSAGEM2 

(IMPRIME MENSAGEM 

(VARREDURA DO TECLADQ 

(COMPARA COM 0 

(VOLTE SE MENOR OUE 0 

(SENAO COMPARA COM 8 

(VOLTE SE MU I TO ALTO 

(SENAO POE NO. ENT RE 1 8 

(MULTIPLICA POR 2 

( NOVAMENTE 

(SALVA VALOR 

(RETORNE 

(A-0 

(2ERA 

(SCORE 

(HL -POSICAO DA NAVE2 
(SALVA VALOR 
(RETORNE 
(LIMPA TELA 

(MOSTRA NA TELA OS PONTOS 
(HL -POSICAO DA NAVE 1 
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ASSEMBLE-SE! 



01 100 


LD 


(POSNl ) , HL 


1 SALVA HL 


01930 


JR 


TE1 


(VA P/TEI 


01110 


XOR 


A 


1A-0 


01940 EXPL 


LD 


HL.N3 


(HL-INICIO DA EXPLOSAO 


01120 


LD 


(TIRO) , A 


SCONDICAO TIRO-0 


01950 


LD 


DE, CP0SN2) 


(DE-POS.DA NAVE 2 


01130 J1 


LD 


HL.N1 


1HL-INICIO DA NAVE 1 


01960 


LD 


BC.04H 


( BC— NO. DE CARACTERES 


0I14H 


LD 


DE. (POSNl) 


(DE-INICIO DA IMPRESSAO 


01970 


LDIR 




(IMPRIME EXPLOSAO 


01150 


LD 


6C.05H 


1 NO. DE CARACTERES 


01980 


LD 


HL.Nl 


(HL-INICIO DA NAVE 1 


01 160 


LDIR 




I1HPRIME NAVE 1 










01170 


LD 


HL.N2 


1 HL— IN IC 10 NAVE 2 










01190 


LD 


DE. <POSN2> 


SDE-INICIO DE IMPRESSAO 










• 1190 


LD 


BC.05H 


1 NO. DE CARACTERES 


01990 


LD 


DE. (POSNl) 


[DE-POS.DA NAVE 1 


• 1200 


LDIR 




J IHPRIHE NAVE 2 


02000 


LD 


BC.05H 


(BC-NO.DE CARACTERES 


01210 


LD 


A. (3840H) 


IVARRE 0 TECLADO 


02010 


LDIR 




(IMPRIME NAVE 1 


01220 


CP 


02H 


1VE SE CLEAR. FOI APERTADA 


02020 


LD 


BC . 0D000H 


(VALOR DO ATRASO 


01230 


JP 


Z . GAME 


1SE FOI VOLTE P/GAME 


02030 


CALL 


DELAY 


(ATRASO DC TEMPO 


01240 


AND 


0E0H 


SSENAO MASCARA 


02040 


LD 


HL . ( SCORE ) 


1 HL -PONT OS 


01250 


LD 


(SALVA) .A 


1 SALVA VALOR 


02050 


LD 


DE. 100 


IDE- 100 


01260 


LD 


A, (TIRO) 


IA-C0ND.DE TIRO 


02060 


ADD 


HL . DE 


( HL— HL ♦ 1 00 


01270 


CP 


1 


1 SE FOR I GOAL A 1 


02070 


LD 


(SCORE) ,HL 


(SALVA HL 


01290 


JR 


Z,J2 


1VA P/J2 


02080 


LD 


HL, ( POSN2 1 


(HL-POS. NAVE 2 


01290 


LD 


A. ( SALVA I 


1SENAO PEGA VALOR DA TECLA 


02090 


LD 


DE , 30 


! DE— 30 


01300 


BIT 


7. A 


1VE SE ESPACO FOI APERT ADO 


02100 


SBC 


HL . DE 


(HL-HL-30 


01310 


JR 


Z. TE1 


iSENAO VA P/TE1 


02110 


LD 


(P0SN2) , HL 


(SALVA HL 


01320 


LD 


A, 1 


5 A— 1 


02120 


JP 


JOGO 


(VA P/JOGO 


01330 


LD 


(TIRO) .A 


1C0NDICA0 DE TIRO-1 


02130 FJOGO 


LD 


HL. VIDEO* 4 75 


(HL-INICIO DA IMPRESSAO 


01340 


LD 


HL. (POSNl ) 


IHL-POSICA DA NAVE 1 


02140 


LD 


(4020H) .HL 


1 POE VALOR NA POS.DO CURSOR 


01350 


INC 


HL 


I INCREMENTA HL 


02150 


LD 


HL , M3 


[HL-INICIO DA MENSAGEM3 










02160 


CALL 


NOSTRA 


(IMPRIME MENSAGEM 










02170 


LD 


BC.0FFFFH 


[VALOR DE ATRASO 










02180 


CALL 


DELAV 


(ATRASO DE TEMPO 


01360 


INC 


HL 


1 INCREMENTA HL 


02190 


RET 




(RETORNE 


01370 


LD 


(POST IR) , HL 


J SALVA EM R OS ICAO DO TIRO 


02200 ( -••BUFFERS- — 






01380 TE1 


LD 


A, (SALVA) 


1 PEGA VALOR DA TECLA 


•2210 SALVA 


DEFS 


1 


(BUFFER DE 1 BYTE 


01390 


BIT 


6. A 


1CHECA SETA-DIRE 1TA 


02220 DIF 


DEFS 


1 


1 BUFFER DE 1 BYTE 


01400 


JR 


Z , TE2 


1 SE NAO FOI APERTADA VA P7TE2 


02230 POSNl 


DEFW 


0000 


[BUFFER DE 2 BYTES 


01410 


LD 


A, (V1DEO*1022) 


1A-LIHITE DA NAVE 1 


02240 P0SN2 


DEFW 


0000 


[BUFFER DE 2 BYTES 


01420 


CP 


32 


1COMPARA A COM ESPACO 


02250 TECLA 


DEFS 


1 


(BUFFER DC 1 BYTE 


01430 


JR 


NZ.TE2 


1 SE NAO FOR - VA P/TE2 


•2260 POSTIR 


DEFS 


2 


(BUFFER DE 2 BYTES 


01440 


LD 


HL. (POSNl) 


1HL-POSICAO DA NAVE 


02270 TIRO 


DEFS 


1 


(BUFFER DE 1 BYTE 


01450 


INC 


HL 


I INCREMENTA HL 


02280 SCORE 


DEFS 


2 


(BUFFER DE 2 BYTES 


01460 


LO 


(POSNl ) .HL 


(SALVA HL 


02290 MI 


DEFB 


0FH 


(RESSETA CURSOR 


01470 TE2 


LD 


A. (SALVA) 


(PEGA VALOR TECLA 


02300 


DEFB 


0DH 


(PROXINA LINK A 


01490 


BIT 


5. A 


(CHECA SETA-ESOUERDA 


02310 


DEFB 


215 


(TAB (23) 


01490 


JR 


Z,J3 


1 SE NAO FOI APERTADA VA P/J3 


02320 


DEFM 


•••SPACE 


• •• 


01500 


LD 


A. (VIDE0*961> 


(A-LIMITE DA NAVE 1 


02330 


DEFB 


0DH 


(PROX.LINHA 


01510 


CP 


32 


(COMPARA COM ESPACO 


02340 


DEFB 


218 


(TAB (26) 


01520 


JR 


NZ.J3 


1 SE NAO FOR - VA P/J3 


02350 


DEFM 


'Vtruo 1.0* 




01530 


LD 


HL. (POSNl ) 


IHL-POSICAO NAVE 1 


02360 


DEFW 


0D0DH 


(PROX.DUAS LINHAS 


01540 


DEC 


HL 


( DECREMENT A HL 


02370 


DEFB 


204 


(TAB (12) 


01550 


LD 


(POSNl ) .HL 


(SALVA HL 


02380 


DEFM 


’ Lui ■ Mauriclo 


Bonilauri - Micro Sietenaa* 


01560 J3 


LD 


HL, (POSN2) 


(HL-POSICAO NAVE 2 


02390 


DEFW 


0D0DH 


(PROX.DUAS LINHAS 


01570 


INC 


HL 


1 INCREMENTA HL 


02400 


DEFB 


217 


( TAB (25) 


01500 


LD 


(POSN2) .HL 


(SALVA HL 


02410 


DEFM 


’ Tec 1 e < ENTER) 




01590 


LD 


A.H 


IA-MSB DE HL 


02420 


DEFB 


1EH 


(APAGA ATE 0 FIM DA LINHA 


01600 


CP 


3FH 


(COMPARA COM 3FH 


02430 


DEFB 


00H 


(FIM DE MENSAGEM 


01610 


JR 


NZ.J4 


(SE FOR <> VA P7J4 


02440 M2 


DEFM 


’Seltcion* di < icul dad*: * 


01620 


LD 


A.L 


1 SENAO A-LSB DE HL 


02450 


DEFW 


0D0DH 


(PROX.DUAS LINHAS 


01630 


CP 


0C0H 


(COMPARA COM 0C0H 


02460 


DEFM 


’ 0 ( MU I TO didcll)’ 


01640 


JR 


Z.FJOGO 


(SE FOR - VA P/FJOGO 


02470 


DEFB 


0DH 


(PROX.LINHA 


01650 J 4 


LD 


A, (DIF) 


IA-NIVEL DE DIFICULDADE 


02480 


DEFM 


* ate’ 




01660 


LD 


B.A 


(POE EM B 


02490 


DEFB 


0DH 


(PROX.LINHA 


01670 PAUSA 


PUSH 


B C 


(SALVA VALOR 


02500 


DEFM 


' 7 (MU I TO (acil) 


01680 


LD 


BC.65H 


(TEMPO DE ATRASO 


02510 


DEFW 


0D0DH 


(PROX.DUAS LINHAS 


01690 


CALL 


DELAV 


( ATRASO 


02520 


DEFB 


'7* 




01700 


POP 


BC 


(RECUPERA VALOR 


02530 


DEFB 


5FH 




01710 


DJNZ 


PAUSA 


(REPITA PAUSA ATE 0 


02540 


DEFB 


00H 


(FIM DE MENSAGEM 


01720 


JP 


JI 


(VA P/Jl 


02550 M3 


DEFM 


*F(» de Jogo' 




01730 J2 


LD 


HL. (POST IR) 


(HL-POSICAO DO TIRO 


02560 


DEFB 


00H 


(FIM DE MENSAGEM 


01740 


LD 


(HL) ,32 


(APAGA CAR AC TER 


02570 N1 


DEFB 


32 


( NAVE 1 


01750 


LD 


DE.40H 


(DE-64 


02580 


DEFB 


184 




01760 


SBC 


HL , DE 


(HL-HL-64 


02590 


DEFB 


189 




01770 


LD 


(POSTIFJ) .HL 


(SALVA HL 


02600 


DEFB 


144 




01780 


LD 


A.H 


(A-MSB DE HL 






32 




01790 


CP 


3CH 


(COMPARA COM 3CH 










0 1 800 


JR 


NZ. J20 


(SE <> VA P/J20 










01810 


LD 


A.L 


(SENAO A-LSB DE HL 










01820 


CP 


40H 


(COMPARA COM 40H 


02620 N2 


DEFB 


32 


[ NAVE 2 


01830 


JR 


C.FTIRO 


(SE < VA P/FTIRO 


02630 


DEFB 


166 




01B40 J20 


LD 


A. (HL) 


(SENAO A-POSICAO NA TELA 


02640 


DEFB 


179 




01850 


CP 


32 


(COMFARA COM ESPACO 


02650 


DEFB 


179 




01860 


JR 


NZ.EXPL 


(SE <> VA P/EXPL 


02660 


DEFB 


132 




01870 


LD 


(HL) ,255 


1 SENAO IMPRIME NA TELA TIRO 


02670 N3 


DEFB 


32 


(EXPLOSAO 


0 1 080 


JR 


TE1 


(VA P/TEI 


02680 


DEFB 


145 




01 090 FTIRO 


ADD 


HL , DE 


(ML-HL-64 


02690 


DEFB 


153 




01900 


LD 


(HL) ,32 


(APAGA TIRO NA TELA 


02700 


DEFB 


145 




01910 


XOR 


A 


( A-0 


02710 


DEFB 


162 




01920 


LD 


(TIRO) , A 


(CONDICAO TIRO-0 


02720 


END 


1NICI0 


(FIM DO PROGRAMA 



Listagem 2 



7000 


21 


00 


70 


F9 


CD 


9F 


70 


CD 


15 


70 


CD 


81 


70 


CD 


9F 


70 


2130 


7010 


CD 


AD 


70 


18 


F2 


CD 


C9 


01 


21 


00 


3C 


11 


01 


3C 


01 


FF 


1590 


7020 


03 


36 


80 


ED 


B0 


21 


C0 


3C 


22 


20 


40 


21 


C7 


71 


CD 


45 


1632 


7030 


70 


CD 


4E 


70 


CD 


6B 


70 


01 


00 


80 


CD 


60 


00 


3A 


40 


38 


1S39 


7040 


E6 


01 


28 


F0 


C9 


7E 


B7 


C8 


CD 


33 


00 


23 


18 


F7 


2A 


CS 


2022 


7050 


71 


22 


21 


41 


3E 


02 


32 


AF 


40 


CD 


BD 


0F 


21 


30 


41 


11 


1170 


7060 


IE 


3C 


7E 


12 


13 


23 


FE 


00 


20 


F8 


C9 


21 


00 


3C 


7E 


17 


1265 


7070 


30 


08 


17 


38 


05 


2F 


IF 


37 


IF 


77 


23 


7C 


FE 


40 


ce 


18 


1124 


7080 


ED 


CD 


C9 


01 


21 


24 


72 


CD 


45 


70 


CD 


49 


00 


FE 


30 


38 


1849 


7090 


F9 


FE 


38 


30 


F5 


D6 


2F 


CB 


27 


CB 


27 


32 


BC 


71 


C9 


AF 


2324 


70A0 


32 


CS 


71 


32 


C6 


71 


21 


40 


3C 


22 


BF 


71 


C9 


CD 


C9 


01 


1824 


70B0 


CD 


4E 


70 


21 


DE 


3F 


22 


BD 


71 


AF 


32 


C4 


71 


21 


77 


72 


1849 


70C0 


ED 


SB 


BD 


71 


01 


05 


00 


ED 


B0 


21 


7C 


72 


ED 


SB 


BF 


71 


1952 


70D0 


01 


05 


00 


ED 


B0 


3A 


40 


38 


FE 


02 


CA 


07 


70 


E6 


E0 


32 


1678 


70E0 


BB 


71 


3A 


C4 


71 


FE 


01 


28 


60 


3A 


BB 


71 


CB 


7F 


28 


0D 


1799 


70F0 


3E 


01 


32 


C4 


71 


2A 


BD 


71 


23 


23 


22 


C2 


71 


3A 


BB 


71 


1535 


7100 


CB 


77 


28 


0E 


3A 


FE 


3 F 


FE 


20 


20 


07 


2A 


BD 


71 


23 


22 


1489 



7110 


BD 


71 


3A 


BB 


71 


CB 


6F 


28 




3A 


Cl 


3F 


FE 


20 


20 


•7 


166/ 


7120 


2A 


BD 


71 


2B 


22 


BD 


71 


2A 


!-• 


71 


23 


22 


BF 


71 


7C 


FE 


1820 


7130 


3F 


20 


05 


7D 


FE 


C0 


28 


70 


3A 


BC 


71 


47 


CS 


01 


65 


00 


1552 


7140 


CD 


60 


00 


Cl 


10 




C3 


■a 


70 


2A 


C2 


71 


36 


20 


11 


40 


*1768 


7150 


00 


LD 


52 


22 


C2 


71 


7C 


FE 


3C 


20 


05 


7D 


FE 


40 


38 


09 


1643 


7160 


7E 


FE 


20 


20 


0D 


36 


FF 


18 


94 


19 


36 


20 


AF 


32 


C4 


71 


1583 


7170 


18 


8B 


21 


81 


72 


ED 


58 


BF 


71 


01 


04 


00 


ED 


B0 


21 


77 


1641 


7180 


72 


LD 


SB 


BD 


71 


01 


05 


00 


ED 


B0 


01 


00 


D0 


CD 


60 


00 


1673 


7190 


2A 


CS 


71 


11 


64 


00 


19 


22 


CS 


71 


2A 


BF 


71 


11 


IE 


00 


1231 


71A0 


ED 


52 


22 


BF 


71 


C3 


AD 


70 


21 


DB 


3D 


22 


20 


40 


21 


6B 


1720 


7 1 B0 


72 


CD 


45 


70 


01 


FF 


FF 


CD 


60 


00 


C9 


FF 


FF 


M 


00 


40 


2087 


71C0 


3C 


•0 


00 


00 


00 


00 


00 


0F 


0D 


D7 


2A 


2A 


2A 


20 


53 


20 


576 


71D0 


50 


20 


41 


20 


43 


20 


45 


20 


2A 


2A 


2A 


0D 


DA 


56 


65 


72 


1067 


71E0 


73 


61 


6F 


20 


31 


2E 


30 


0D 


0D 


CC 


4C 


75 


69 


73 


20 


4D 


1250 


71F0 


61 


75 


72 


69 


63 


69 


6F 


20 


42 


6F 


6E 


69 


6C 


61 


75 


72 


1608 


7200 


69 


20 


2D 


20 


4D 


69 


63 


72 


6F 


20 


53 


69 


73 


74 


65 


6D 


1381 


7210 


61 


73 


0D 


0D 


D9 


54 


65 


63 


6C 


65 


20 


3C 


45 


4E 


54 


45 


1340 


7220 


52 


3E 


IE 


00 


53 


65 


6C 


65 


63 


69 


6F 


6E 


65 


20 


64 


69 


1330 


7230 


66 


69 


63 


75 


6C 


64 


61 


64 


65 


3A 


0D 


0D 


20 


30 


20 


20 


1157 


7240 


28 


4D 


55 


49 


54 


4F 


20 


64 


69 


66 


69 


63 


69 


6C 


29 


0D 


1248 


7250 


20 


61 


74 


65 


0D 


20 


37 


20 


20 


28 


4D 


55 


49 


54 


4F 


20 


980 


7260 


66 


61 


63 


69 


6C 


29 


0D 


0D 


3F 


5F 


00 


46 


69 


6D 


20 


64 


1152 


7270 


65 


20 


4A 


6F 


67 


6F 


00 


20 


B8 


BD 


90 


20 


20 


A6 


B3 


B3 


1669 


7280 


84 


20 


91 


99 


91 


A2 
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MICRO SISTEMAS, novembro/86 





0 SOFTWARE PARA 0 SEU MICRO 



F = pode ser gravado em fita K7 
J = uso obrigatorio de joystick 
64 = requer 64K de RAM 



O EDITOR & um sistema para a criacao 
e edicao de programas odventures. Ele 
permite a manipulacao de todos os ele- 
mentos do jogo, tais como objetos, ver- 
bas, mensagens, posicoes, furnjdes, etc. 
A programacao ao jogo k exatamente 
igual para todas as linhas de equipa- 
mentos e os programas criados sao com- 
patfveis a nivel de estrutura funcional. 

Preco: Cz$ 800,00 

Disponivel nas versoes: CP 500 (disco), 
TK 90X (cassete) e MSX (cassete). 

OMOZONIO 

Icnito Dffiovul 

O AMAZONIA 6 uma aventura emocio- 
nante onde voce estard envolvido nas 
mais incriveis situacoes de perigo. En- 
contre a saida e sobreviva... 

Voce jamais esquecerd essa aventura. 

CP 500 (disco) CzS 250,00 

CP 500 (cassete) CzS 190,00 

TK 90X (cassete) CzS 190,00 

0 ENIGMA 
DOS DEUSES 

Aventura grafico no antigo Egito. Voce 
e Hasson, o escolhido para salvor a terra 
dos farads da ira dos deuses. Decifre o 
enigma dessa fabulosa odisseia. 

Pre^o: Apple (disco) CzS 250,00 

utilit$rio de cdpia nL'D 
pan Jtilio VelLosa DNl 

Proteja seus programas originais, fazen- 
do cdpias de seguran^a. Com o BKP vo- 
ce duplica programas com ou sem 
H E ADE R, em vdrias velocidades e veri- 
fica seus pardmetros. 

Pre^o: MSX (cassete) CzS 500,00 



APPLE II 

JOGOS — CzS 170,00 — 

UP'n DOWN - divert KJa comda nas montanhas 
GARFIELD — »|uoe o GARFIELD • nio engordar 
DAM BUSTERS — simulador de bombardeiro 
LAW Of WEST - emooonante jogo no velho oeste 
G.IJ0E- baseado no desenho C0MAN00S EM AQlO 
BEACH HEAD N - made uma pra* m«n.ga 
RUN FOR IT - aromado |0|0 de aflo Fantlstico 1 
SPACE SHUTTLE (64) - recupere o satlirte 
SKLENT SERVICE (64) - umulac*) de submanno 
KNIGHT Of DESERT - super WAR GAME 
KUNG fU MASTER - lute para salvar a moonha 
KARATE CHAMP - (antAstica disputa de karat* 
KARATEKA — perteita simula^io de karat* 

SUMMER GAMES (64) - 8 logos okmp«OS de ve*o 
SUMMER GAMES H (64) — 7 novos (Ogos oAmpicos 
WINTER GAMES (64) - 7 logos de memo 
SPY »s SPY - guerra de espiOes em 30 
DROU lamtetica pmeguK^o de aqio iap«M 
SARGON IN — super logo de tadrez 
SKY FOX (J/64) - vmuiador de v6o com compete 
F- 1 5 EAGLE (R64) - simula^Ao de um ca«a F 1 5 Eagle 
MASK Of THE SUN - acfte os tesouros perdHtos 
KABUL SPY — thnier de esptonagem no afegamstAo 
DARK CRYSTAL - baseado no Mme Cnstal Encantado 
FLIGHT SIMULATOR H - p.lote um PIPER 181 
THE WGREDI0U HULK - logo baseado na revista HULK 
CAPITAIN GOOONIGHT -(J/64) -salve omundo 
RESCUE RAIDERS (J/64) - comande sues tropes 
BRUCE LEE (J)— lute karat* como Bruce lee 

utilitArios/aplicativos 

— CzS 360,00 — 

VISICALC - planilha da eMculos 
V1SIP10T /VtSITRENO - gerador de griftcos 
VISIFUE - gerador de banco de dados 
VISITERM - programa de comurocacio 
VWCHEDUU - anai.se fnancera P&T/CPM 
LOCKSMITH 5 Off - utiktano de cbpa 
NIBBLES AWAY H/C3 - utiktino de copra 
ALPHA PLOT - gerador de grificos comerciais 
THE GRAPHICS MAGICIANS - ammador grSfco 
THE GRAPHICS SOLUTION - e 0/F utiktino de cbpta 
NIBBLES AWAY II/C3 - utiktino de cbprt 
ALPHA PLOT - gerador de grificos comerciais 
THE GRAPHICS MAGICIANS — ammador grafico 
THE GRAPHICS SOLUTION - editor de grafeos 
PRINT shop - gerador de mpressos gralicos 
PRINT SHOP COMP -complemento do PRINT SHOP 
MAGIC WINDOW I - processador de leitos 
APPLE LOGO - comp, labor LOGO 
APPLE FORTRANICP/M) - comprlador FORTRAN 
Graf ORTH - comprlador FORTH 

— Cz$ 520,00 — 

FONTRIX — editor de caracteres com vinos sett 
NEWS ROOM — fa^a seu prbpno jomal 
ASCII EXPRESS - utiktano de comuroca?io 
TAKE 1 — super ammador grafico 
TURBO PASCAUCP/M) - compitador profrsswoal 

- CzS 670.00 - 

F ANT A VISION - sof isticado edrtor/arkmador grafico 
LOCKSMITH 6.0 — ultima verslo do tamoso copiador 

JOYSTICK ANAL6GIC0 - C Z» 360.00 - 

CP300/CP5d0~ 

JOGOS — CzS 80,00 — 

FLIGHT SIMULATOR (F) - simulador de vbo 
ARMORED PATROL (F) - patruiha de tanques 
OUTHOUSE (F) — proteia o seu banheeo 
SEA DRAGON (F) - pilote um submanno 
PENETRATOR (F) — aprofundese nas cavemas 
ASSAULT (F) - fup dos Igea nimigos 
DEMON SEED (F) — acabe com os pissaros 
COSMIC FIGHTER (F) - jogo bpo Invasores 
PANM (F) - escape dos robte 
PINBALL (F) - upo fliperami 
CRAZY PAINTER (F) — pmle a tela se puder 
SARGON (F) - logo de iadrez 
ASILO (F) — aventura graiica 
ZORK l — super aventura 
SPOOK HOUSE - aventura grMca 
TOXIC DUMPSITE - aventura grifica 
ADVENTUR4 aventuras dilerentes 
FUC FUC - programa porno grtfico 
GHOSTS (F) - destrua os fantasmas da cidade 
RALLY - complete o traieto de um rally 

utilitArios/apucativos 

- CzS 450,00 - 

ARRANGER I — arquivo de dvetbnos 
CREATOR - gerador de programas BASIC 
VISICALC - plamiba de cMculos 
CLONE M - copiador rae deetdnos 



— CzS 670,00 — 

PROOUCER — gerador de programas 
SUPER UTIUTY 3 2 - super uWrtAno 

TK90X [48k] 

JOGOS — CzS 100.00 — 

SAMANTHA FOX STRIP POKER — original jogode poker 
JET SET WILLY I - apague todas as luzes 
STARION — aventura peto portal do tempo 
ROBIN OF SHERW000 - aventura grtfica com 
Robin Wood 

GREMLINS - emooonante logo baseado no feme 
INTERNATIONAL KARATE 1 - Was em vinos panes 
INTERNATIONAL KARATE 2 - mais cenlnos 
BECH HEAD N — nvada uma praM nmaga 
BLADE RUNNER - seta um capdor de androides 
SPINOIZZY - recotia oa dumantes em reievo 30 
PANZAOROME duelode Unques sofisticados 
BOUNCES - o seu desaho fatal na arena do future 
»OBO T RON - salve as pesaoaa kitando com roods 
STREETHAWK -pgodo senado MOTO LASER 
WPERSPORTS - grandes logos oimpcoa no sau mcro 
STAR BIKE - drip uma moto espaoai 
ACTION BIKER - pegue as encomendas na cidade 
BUCK ROGERS — plote sua nave no pianeta ZOOM" 
POPEYE - ajude nosso herbi a conqmstar Olhna 
PR OJECT FUTURE - destrua os wrmgoa na rave 
TWISTER — vne ncrlveis amoves com este jogo 
SPITFIRE 40 - simulaclo de um cap bntlnico 
SIR FRED salve a mocmha na sua herbiea (omada 
BOEDER DASH - pegue as fontes de energia na rrana 
COOE NAME MAT - seta um defensor espaciai 
VABAIAIHA FINAL -jogo baseado no Mme 
NEVER ENDING STORY -baseado no Mme 
HUNTER KILLER - simutapo de submanno 
ERIC ANO THE FLOATERS - destrua os baWes morta« 
TAPPER - save CHOOPnum bar murtoioueo 
'KLHALLA - aventura na era medieval 
SUPER TEST 1 - novas provas atieticas 
SUPER TEST 2 — mart provas atieticas 
COMMANDO - viva as emopOes do feme 
WEST BANK - enfrente dueJos com destreza 
GLADIATOR - lute para agradar Cezar 
FliNSTONES — baseado no desenho anenado 
ZORRO - emoqbes de capa e espada 
PING PONG - wcrtvel sanulapo 
ROCCO - enfrente kitadores de boae 
AMAZON WOMEN aventiaa das amazonas 
FRANKENSTEIN 2000 — jogo no corpo humano 
SAl COMBAT - luta marcial com bastlo 
CYBERUN - monte a sua nave nesta odrts*ia 
3 WEEK PARADISE — adenuma Wia perAda 
NOMAD - destrua oa nvasaores da cidade 
WINTER GAMES 1 - esportes de wvemo 
WINTER GAMES 2 - mas esportes de nvemo 
GUNFRIGHT - combata os pstotevos em 30 
TRANSFORMERS - logo dos famosos herbs 
SABOTEUR - sabote uma uswa atbmica 
GREEN BERET - Oestrua todos na base vwmga 
GIFT FROM THE GOOS - aiude os oeuses 
THE EXPIOOWG FIST - werNel mta de karat* 

THINK - sof Sticado logo de kgue 4 
SKY RANGER - puote um hekcbptero em 30 
MGHYWY ENCOUNTER destrua a nave wvasora 
ALIEN ENCOUNTER — recupere a forp 
ROCK N WRESTIE — kita itvre na sua tela 
YIE AR KUNG FU - enfrente mestres de Kur* Fu 
Ms. RAC MAN - aiude a namorada do Pacman 
PIPELINE u - destrua oanmgotdoacanoa 
BASKETBALL — simulapo quase real 
MOONCRESTA - enfrente rwvfos do espap 
SPt GERMAN logo com 0 Homem Aranha 
THE HULK - aventura grlhca com o HuN 

- Cz* 150,00 - 

IMPOSSIBLE MISSION — espionagem em alto grau 
DAMBUSTERS - simulador de bombardeiro 
THE MOT Of TIGER - fantlstica luta marcial 
OUAZATRON - kmpe a cidade com seu androide 
ELITE - sofstcado pfp espaciai em 30 
THE HOBBIT - aventura do Senhor dos An*s 
LORD'S Of THE BINGS - a odssea « HOBBIT 
conbnua 

SKY FOX - sanuiador de vbo com combate 
MOVIE — ache a mocmha na casa do gangster 
FAMUGHT - logo na idade m*dia em 30 

utilitArios/aplicativos 

— CzS 80.00 - 

VU 30 - utiktlno grlfico Was em 30 
VU CALC - piankha de cMculos 
VU FIE — arquivo de dados para uso gerai 
MCOOCR ■ - compKador BASIC 
SPECTRUM WKCE - smtetizador de voz 

- CzS 100,00 — 

SUPERCOOE 100 — rotmas ut*« c/todas as 
nformacbes 

DEBUGGER - super monitor disassembler 



TASWIOE - gera 64 cdunas no video 
SOFTCALC - plamtia de cMculos GRAFICA 
ASSEMBLER - super editor assembler 
IASWORD II - processador de lento 64 cokwas 
THE KEY - copiador de programas 
PAINT PUIS - editor de teias grKicas 
SCREEN MACHINE - uOMrio grlfico 
PASCAL 1* - compnador PASCAL 
Spec FORTH - compNaOor FORTH 

— CzS 250,00 — 

ART STUWO - satema gerador de grlfcos 
BETA BASK 30 — super comandas para o TK90 
SOFTCOPf - super copiador de programas 

hotbit/experT 

JOGOS — CzS 100,00 — 

RAMBO - baseado no Mme RAMBO II 
GUNFRIGHT ve*io oeste em 30 GrMicosfantlsticos 
NORTH SEA HELICOPTER - sviViUcloOe hekcbotero 
R0UER8AU - logo de pmbal com trts fases 
SUPER HOBO - Nude o robozmho am sua msslo 
CONGO BONGO - prote»a se dos obstlcuios 
CRAZY TRAIN -nlodeineotremparar Seprlpido 
CROROQ — construe os camnhos sem ser destruido 
FIRE RESCUE - salve todos oa ratmhos 
EXERION — logo com naves espacias «ual ao fiiper 
NINJA - emocionante wentura Tome se um ranja 
KNIGHT MARE — 0 ultimo tan(amento do KONAMI 
RAID ON a BAY -combate com hekcbptero 
BKHAR — jogo de Mhar ofioai 
SENJVO - smuia^lo de combate de tanques 
XYZOLOG - jogo Oe estratlgia e a^lo rlpida 
BACK TO THE FUTURE - baseado no Mme 
STARMMS - emooonante batatia espaciai 
ALFA SQUADRON - prtote uma nave fabulosa 
HYPER RAUYE - sanuJa^lodecomda Vinos cenlnos 
ELEWDR ACTION - pegue lodas as males e escape 
FUGHT DECK - (ogo de estratlgia Was digitafizadas 
0-05 - defenda seu temtbno dos robbs nmigos 
KUNG FU MASTER — simuia^lo de anes maroart 
GALAX1A — destrua as n»cs mrmgas no espa^o 
GYRUS ADVENTURE - too penetrator com hekcbptero 
CHUCKIE EGG — pegue lodos os osos e fup das aves 
PUNCHI - salve os beb*& EWtos de voz srtetizada 
F 16 - simulador de vbo com combate 
KNK1HT LORE - aventura no casMo em 3D 
NIGHT SHADE - mundo Oe maga em 30 
ALIEN S — reamme os astronautas em 3D 
SORCERY - salve os dnadas aprswnados 
BATTLE FOR MIOMRY - vaargame grlfico 
EUOON - ache as notes mlgicas 
MASTER OF LAMPS - aventura nas 1001 nones 
JUMP JET — combate a*reo num Sea Hamer 
BtAGGER recotia os objetos 
JET SET WILLY N - apague todas as luzes 
BOXE - luta com vinos adverslnos 
BUCK ROGERS - pilote a nave de Buck no pianeta 
ZOOM 

CHAMPIONS NATIONAL — corrida de cwalos 
ERIC A FLOATERS - mate oa monstros 
ZAXXON - tamoso jogo na sua verslo original 
WkR HEAD- combate espac-ai. vines fases 
CHILLER - baseado no "CUP" ^ de Michael Jackson 
HOLE IN ONE — jogo de goife. varias tases 
LOOt RUNNER — pegue os tesouros sem ser pego 
ULTRA CHESS - ultima verslo do XAOREZ 
FIAPPY - derrube pedras sobre os monstros 
THE WRECK - ache os tanques de ar 
THE GOONIES - encontre seus amigos 
MANIC MINER - recotu os objetos 
KING'S WLLEY - percorra a prtm.Oe 
A VIEW TO A KILL - baseado no Mme de 007 
Mt 00 — destrua os monstros 
BOUOCROASH - pegue os (hamames nas cavemas 
WARROIO - tmocionante jogo com robbs 

utilitArios/aplicativos (fita) 

— Czf 250,00 — 

TASMORD - processador de teitos 64 coiunas 
PSS — aseembler/drtessembier 
MAGIC SET - super editor de caracteres 
SPRITE MACHINE - edrtor de SPRITES 
FORTH -complador FORTH 
PASCAL — compitador PASCAL 
COMPRADOR BASIC - compkador BASIC 

utilitArios/aplicativos (disco) 

— Cz* 300,00 — 

MAGIC SET - super edrtor de caracteres 
SPRITE MACHINE edrtor de SPRITES 
PSS - assembler'dsassembier 
IASWORD - processador de teitos 64 coiunas 

— Cz* 800,00 — 

TURBO PASCAL - comprtador proAssionai 
80S C - comprtador de knguagem C 



Desejo receber os programas em ( ) FITA ( ) DISKETTE 
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Impressoras 

As duas impressoras matriciais 
da Elgin estio agora mais rApidas. 
A velocidade de impressSo da La- 
dy II foi ampliada de 130 para 
160 CPS e a Amelia passou de 
180 para 220 CPS. Alim disso a 
AmAlia passou a operar tambAm a 
20 caracteres por polegada. au- 
mentando o numero de colunas 
por linhas para atA 264. 

Investindo ainda na linha de 
impressoras lineares, a Elgin estA 

Centro de 
Reparos 

A Compufix criou um Centro 
de Reparos para micros, impresso- 
ras e perifAricos. e garante que 
qualquer conserto em seu labora- 
tbrio A efetuado em atA 24 horas 
uteis, salvo se houver falta de pe- 
cas no mercado. O conserto dos 
micros da linha IBM-PC custam 
5 OTN por hora no laboratbrio 
da empresa, e 7 OTN quando 
efetuados no prbprio cliente; para 
as linhas Apple e TRS os precos 
sao 3 e 5 OTN. O pen'odo mfni- 
mo 6 de duas horas. 

Outra modalidade de atendi- 
mento, o contrato de manuten- 
cao. possibilita ao cliente obter 
equipamentos sobressalentes sem 
onus, enquanto os seus estao no 
conserto. 

0 novo endereco da Compufix 
— aberta atA as 23:00h — A Rua 
Teodoro Sampaio, 849. Sao Pau- 
lo; no Rio, o telefone da empre- 
sa A (021) 222-0247. 

Programa 
para Surf 

A Bit e Baite Sistemas para 
computadores estA oferecendo um 
sistema desenvolvido para contro- 
lar campeonatos de surf. Com este 
software, A possi'vel realizar desde 
a inscricao e sorteio das baterias 
atA a contagem final dos pontos e 
emissao de certificados aos parti- 
cipates. 

O "Sistema Campeonato de 
Surf" roda no TK 3001 le e jA foi 
testado em onze campeonatos 
como, por exemplo, o II Master 
Surf Ala Moana e o 1 .0 Redley de 
Body Board. Mai ores informacbes 
podem ser obtidas na Bit e Baite, 
pelo telefone (021) 710-3659. 



mais velozes 

langando a EE 1200, com a qual 
pretende conquistar mais 20% do 
mercado. A nova impressora, des- 
tinada a mainframes e superminis, 
possui padrao Centronics, veloci- 
dade de 1200 LPM, gabinete acus- 
tico, interface para equipamentos 
IBM e janela para verificacAo do 
m’vel do papel. SerA vendida em 
sistema OEM, e a partir de dezem- 
bro, tambAm diretamente ao usuA- 
rio final. 



Intertec 

lan (;a emulador 
para PC 

Transbsc 3 -PC, este A o no- 
me do novo software para co- 
mumca^ao micro-mainframe, 
desenvolvido pela Intertec Ser- 
vigos, para equipamentos de 
16 bits. Na verdade ele com- 
preende dois programas. Um 
deles, o Transbsc 3/T, que ao 
ser colocado no micro emula 
terminal IBM 3276-2, poden- 
do conectar impressora se- 
rial ou paralela. estA A venda 
no bureau por Cz$ 5 mil e 
600, preco que varia confor- 
me o numero de cbpias a se 
rem compradas. JA o Trans- 
bsc 3/1 destina-se a clientes 
da Intertec ou grandes em- 
presas, e possibilita a trans- 
ference de arquivos entre 
um ou vArios micros e siste- 
ma central de processamen- 
to de dados. Custa Cz$ .... 
44.128,00. O endereco da 
Intertec A Rua Bela Cintra, 
10? andar, tel.: (011) 259- 
2055, SSo Paulo. 



Laneamentos 

Alphasystem 

A Alphasystem, empresa sedia- 
da em Sorocaba, Sao Paulo, jA de- 
finiu alguns dos lancamentos que 
farA no primeirosemestre de 1987. 
Entre eles estA um monitor de 40- 
BO colunas, para MSX e outros 
micros, padrio RGB ou v/deo 
normal, com 16 cores; e o desdo- 
bramento da mini impressora Al- 
pha Printer, IP-40, que estA no 
mercado desde julho. O novo mo- 
delo, a IS-40, destina-se a micros 
com sai'da serial, A semi-grAfica, si- 
lenciosa e imprime 24 , 32 ou 40 
caracteres por linha. 



Wo Ip faz acordo com Racimec 

AtravAs de contrato firmado com a Racimec. a empresa Wolp 
Comercial de MAquinas Ltda. adquiriu dois mil micros Senior 
S-100 e duas mil impressoras Ita. Esses equipamentos serio ofere- 
cidos e alugados ao mercado sob a denominacao de Sistema Wolp, 
dotados de aplicativos-comerciais. A Wolp Comercial fica na rua 
Henrique Schaumann, 266/6? andar, tel.: (011) 881-0610 - Sao 
Paulo. 





TK 95 chega ao mercado 



OTK96. novaver- 
sAo do TK90X da 
Microdigital, jA estA 
no mercado e custa 
Cz$ 4 mil e 599. 

Conta com teclado 
profissional, 48 Kb 
de membria RAM, 
versao do software 
Logo, alAm de ma- 
nual e f ita cassete. 

Entre os perifAricos 
disponfveis para o 
TK 95 estao a light 
pen, e ainda este 
mAs serA lancada 
mouse, produzida 
pela Input Digital. 

A estimativa A ven- 
der 8 mil unidades do novo micro atA o final doano. A empresa infor- 
ma que nao pretende tirar de linha o TK90X, cujas vendas em outu- 
bro chegavam a 2.500 unidades/mes. 



Bingo 

Eletronico 

Bingo Eletronico A oconcurso 
deste ano para os usuArios do Sis- 
tema Sampa, que estA ingressando 
em uma nova etapa. A primeira 
fase vai atA 30 de novembro e 
consiste no preenchimento de car- 
tela eletrbnica com seis dezenas, 
que o prbprio usuario deverA esco- 
Iher. O sistema se encarrega da ve- 
r if icacao, cuidando para que nao 
haja cartelas iguais. Na fase se- 
guinte a cartela vai sendo preen 
chida, com as dezenas sorteadas 
pelo prbprio sistema. A medida 
que os usuArios forem acertando 
cinco dezenas em suas cartelas, 
comecam a ganhar prAmios. 

Os patrocinadores do Bingo 
Eletrbnico sAo: Revista MI- 

CRO SISTEMAS, Elebra, Humana 
InformAtica, RC Tacnologia e 
Royal Software. Os prAmios in- 
cluem um modem Namorado (lan- 
Camento Elebra) para o primeiro 
colocado, trAs assmaturas de MI- 
CRO SISTEMAS, 2 VTX-PC (lan- 
Camento da RC Tecnologia para 
PCs), um "Z" (software da Huma- 
na InformAtica, para PC), trAs 
Royalworks (da Royal Software, 
para Apple) e um Supervisicalc 
(Royal Software). O acesso ao 
Sampa A gratuito, e pode ser fei- 
to em 300, 1200/75, 1200, 2.400, 
em Bell ou CCITT, atravAsdo tel.: 
(01 1 ) 853-6273, 24 horas por dia. 



Conferencia 
na Aleman ha 

AcontecerA em Berlim, de 21 a 
25 de setembro de 1987, a 7? 
ConferAncia Internacional em Sis- 
tema de Computacao Distribui- 
dos. Os interessados em enviar tra- 
balhos devem entrar em conta to 
com o Professor Paulo Bianchi 
Franca, do NCE-UFRJ, pela Cai- 
xa Postal 2324, CEP 20001, RJ, 
ou pelo telefone (021) 290-3231, 
ramal 243. O prazo para a entre- 
ga dos trabalhos A 01 de janeiro 
de 1987. 

Panther 

Informatica 

Sao Paulo conta com uma no- 
va loja de equipamentos de infor- 
mAtica. £ a FLS Panther InformA- 
tica, que trabalha com micros e 
perifAricos das linhas Apple e IBM- 
PC, e agora, em novembro, come- 
C a a colocar no mercado seus pri- 
meiros softwares, de Contabili- 
dade e Mala Direta. Ainda este 
mAs a FLS langa com exclusidade 
o CCRS - um controlador de co- 
mu nicacAo RS-23C, produzido 
pela Sislog. para ligacao de atA 8 
micros ou terminais em rede, de 
forma que utilizem a mesma im- 
pressora, com selecao automAti- 
ca ou manual. A FLS Panther In- 
formAtica fica na Av. Nove de Ju- 
lho, 2901, tArreo, lojas 1, 2 # 3, 
tel.: (011) 258-5667, Sao Paulo. 
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Um kit para limpeza de micros 




Um novo kit estA 
chegando as lojas es- 
pecial izadas e gran 
des magazines: o 
SCO, um kit para 
limpeza de micros. 

Produzido no Bra- 
sil pela Marsh Ele- 
tr&nica Ltda., oSCD 
A distribuido a ni'vel 
nacional pela Vector 
Industrie e ComAr- 
cio. Compoe-se de 
solugao antiestAtica CRT Cleaner, 
para video, teclado e rack ; solu- 
gao para limpeza de cabegas mag- 



nAticas, papel lint free para aplicA- 
las e remover os excessos de su- 
jeira; bastdes SWABX para as 



teclas; e disquetes em papel espe- 
cial, que podem ser u sad os at* 15 
vezes. Segundo o fabricante as 
cabegas magnAticas devem ser 
limpas uma vez por semana e o 
micro a cada 15 dias. 

O SCO custa cerca de Cz$ . . 
400,00, vem acompanhado de ma- 
nual com instrugOes de uso, e tam- 
bAm pode ser encomendado dire- 
tamente * Vector, * Rua Monte 
Alegre, 11.312, Sao Paulo, tel.: 
(Oil) 533-2069. e nas filiais da 
empresa no Rio de Janeiro. Belo 
Horizonte, Brasilia e Santo An- 
drA. 



Terminal Ponto de Venda da Sid 



Na ultima Feira Nacional de Equipamentos, Produtos e Servi- 
gos para Lojistas, reahzada em setembro. no Rio, a Sid Informed- 
ca apresentou seu terminal ponto de venda PDV-6000, com pat l- 
vel com o do PC da IBM, que reime as funcionalidades de uma cai- 
xa registradora com as de um micro. O terminal possibilita rapidez 
de fluxo, gerenciamento de estoque e distribuigao racional de met- 
cadorias pelas lojas. A prOpria Sid desenvolveu aplicativos para 
seu terminal ponto de venda para os segmentos de lojas de depar- 
tamentos, supermercados, magazines, lojas de materials de constru- 
gao. lanchonetes e con t role de crediSrio. 



Antonio Costa recebe premio 



Software de 
comunicagao 

A leone InformAtica estA ofe- 
recendo software bAsico e de co- 
municagao para micros de 8 bits 
sob sistema operacional CP/M e 
compativeis com o IBM/PC. 

Fazem parte da linha de pro- 
dutos oferecidos pela leone os se- 
guintes softwares: o Tl, um emu- 
lador de terminais ass/ncronos; o 
Programa Telex, que permite li- 
gar o micro A Rede Nacional de 
Telex; o Sistema MMP, um siste- 
ma operacional multiusuArio com- 
pativel com o CP/M para micros 
Cobra 210; e o leone 3270, um 
emulador de equipamentos da li- 
nha IBM 3270 para micros com- 
patfveis com o Apple II plus sob 
sistema operacional CP/M ou mi- 
cros Cobra 210 sob o sistema 
SPM. 

A empresa possui ainda soft- 
wares para minicomputadores CO- 
BRA 480 e 500. A leone fica na 
Av. das Americas, 4790, grupo 

324- 325, CEP 22640, tel.: (021) 

325- 7185, Barra da Tijuca, RJ. 



SP — A Amarasom estA imple- 
mentando o departamento de In- 
formAtica de sua loja com a con- 
tratagao de profissionais especia- 
lizados para o setor e oferecendo 
equipamentos, perifAricos e supri- 
mentos para as linhas Apple, TRS 
e MSX. A loja tambAm fornece as- 
sessor^ para instalagao de equipa- 
mentos e implantagao de sistemas. 
Seu telefone 6 (011) 284-9644, 
Sao Paulo. 

SP — A C&M Editores Associados 
fundou, em Ribeirao Preto, um 
jornal dirigido especialmente para 
a Area de InformAtica. AlAm des 
ta publicagao, a edit or a possui 
outros jornais sobre temas especi- 
ficos como autombveis e econo- 
mia. Um detalhe importante: as 
publicagOes sao distribufdas gra- 
tuitamente. Mai ores informagdes 
pelo telefone (016) 634-3400. 

SP — A Elebra PerifAricos trans- 
feriu sua Area de marketing para a 



Colaborador frequente da re- 
vista MICRO SISTEMAS e uma 
autoridade no campo da Inteligen- 
cia Artificial no Brasil, o professor 
Antonio (^osta Pereira, doutor em 
Engenharia ElAtrica pela Cornell 
University, de Nova lorque, rece- 
beu da Sucesu uma passagem 
aArea para assistir ao prbximo 
NCC — National Computer Con- 
ference, nos Estados Unidos, 



Rua Geraldo Flaustino Gomes, 
78, CEP 04675, tel.: (011) 533- 
9200, Brooklin Novo, Sao Paulo. 
O centro de reparos e estoque co- 
mercial continuam no antigo en- 
derego. 

RJ — O Centro de Produgao da 
Universidade do Estado do Rio 
de Janeiro vai promover, de 1 1 de 
novembro a 18 de dezembro, um 
curso de TAcnicas Avangadas de 
Programagao de Microcomputado- 
res Utilizando a Linguagem BA- 
SIC. Outras informagdes pelos te- 
lefones (021) 264-8143 e 284- 
8322, ramais 2417 e 2507. 

SP — A DigibrAs estA promoven- 
do, em Sao Paulo, o curso de Pro- 
jetista em Robbtica. Novas turmas 
sao formadas sempre que o niime- 
ro de interessados chega ao mfni- 
mo de 15. Para obter maiores in- 
formagfles ligue para (011) 570- 
5368. 



como premio por sua participa- 
gao no XIX Congresso Nacional 
de InformAtica, realizado em agos- 
to no Rio de Janeiro. 

Na ocasiao, o prof. Antonio 
Costa apresentou uma brilhante 
palestra no MICROINFO sobre o 
Macintosh, computador fabrica- 
do pela Apple Computer e que a 
empresa brasileira Unitron prome- 
te langar aqui. 

Microsolugao 

lanca 

BISAM 

Viabilizar aplicagdes comple- 
xas em BASIC agilizando a mani- 
pulagao de arquivos. Esta A a fina- 
lidade do BISAM, um conjunto de 
sub-rotinas langado pela Microso- 
lugao que acre scent a aos compi- 
ladores desta linguagem o modo 
sequencial indexado de busca de 
dados. 

Possibilitando a criagao e ma- 
nutengao de arquivos com indi- 
ces estruturados em Arvore binA- 
ria. o BISAM estA disponi'vel em 
versdes para os micros de 8 bits 
sob CP/M (TRS-80, Apple, etc.) 
e 16 bits (sob o MS-DOS). 

O sistema custa Cz$ 4 mil, in- 
cluindo exemplos e manual em 
disco, podendo ser adquirido na 
prdpria Microsolugao A Rua Eva- 
risto da Veiga, 41 — sala 607, 
Centro, Rio de Janeiro-RJ, tel.: 
(021) 240-9101. 



STRINGS 



CP desativa 
micros 
menores 



0 aquecimento da economia jA 
afeta diretamente a Area de infor- 
mAtica, e tanto a falta de compo- 
nentes no mercado bem como o 
aumento do prazo de entrega por 
parte dos fornecedores acabaram 
por gerar nas empresas a necessi- 
dade de opgAo por determinados 
produtos em detrimento de ou- 
tros. Isso foi o que aconteceu 
na CP Computadores Pessoais, 
empresa do grupo Prolbgica, que 
desativou a produgao dos micros 
CP-200 e CP-300 para poder con- 
centrar esforgos em cima dos 
equipamentos profissionais de sua 
linha que sao o CP-500, SP-16 e o 
Solution, os dois ultimos de 16 
bits. Segundo o superintendents 
de operagdes da CP, FAbio Men- 
dia, a empresa foi obrigada a fa- 
zer uma escolha, e com isso alAm 
da desativagao do 200 e 300, a 
produgao do CP-400 foi reduzida 
desde junho. A produgao do CP- 
500 estA em torno de 1.000 a 
1.500 umdades por mes, a do SP- 
16 entre 400 e 500. 

O superintendente da CP ga- 
rante. no entanto, que os usuA- 
rios dos micros que deixaram de 
ser fabricados nao precisam se 
preocupar quanto A reposigao de 
pegas pois hA estoque suficiente 
das mesmas. Quanto a manuten- 
gao, esta continua sendo ofere- 
cida pela rede autorizada pela CP. 

Acordo Cetus 
Novell 

A Cetus assinou acordo com a 
Novel Inc., visando trazer para o 
Brasil a tecnologia da empresa 
produtora de software para redes 
locais. 0 acordo permitirA, entre 
outros, o acesso ao Advanced 
Netware, um soft que possibilita a 
interligagao em rede, e uso com- 
partilhado de forma transparente 
de programas consagrados no pai's 
e no exterior. 



No CPI) de MS 



MS recebeu em seu CPD os 
seguintes produtos: a impres- 
sora Alpha-printer IP-40, da 
Alphasystems; o joystick pro- 
fissional JP-1 15P e o slim data 
recorder DR-1000A, da CCE; 
o drive 5 1 14" slim DR2 360 e 
a interface-disco CDX-2, da 
Microsol; e as calculadoras 
cientfficas pessoais EL-540 e 
EL- 545, da Sharp. 

Em breve voltaremos a co- 
mentar esses produtos nas pA- 
ginas da revista. 
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Em busca dostesouros 



Novamente a revista oferece o servipo MS Destaque que visa fornecer 
aos leitores material de qualidade, que, por seu tamanho, nao e publicado 
nos moldes normais de MS. Desta vez e o jogo “Em busca dos tesouros" 
(ZX81), descrito abaixo. Os interessados em adquiri-lo devem escrever para 
Micro Sistemas enviando os valores constantes no quadro. 

Tadeu Curinga da Silva 



D ando prosseguimento ao trabalho in£- 
dito do MS Destaque, estamos apre- 
sentando nesta edigao de jogoso pro- 
grama Em busca dos tesouros. de 
Tadeu Curinga da Silva, urn cohborador ja' co- 
nhecido da linha ZX81 com o excelente “De- 
fenda-se", publicado em MS n? 40. 

Em busca dos tesouros 6 um jogo seme- 
lhante ao conhecido Pitfall que faz bastante 
sucesso nos video-games e em algumas linhas 
de microcomputadores, sendo que, agora, os 
proprietaries dos micros da linha ZX81 
(TK82/83/85, CP 200 etc.) tambem poderao 
desfrutar de uma excelente versao do mesmo. 




As principal caractcri'sticas do programa 
sao: 

• 100% Assembler 

• Graficos animadi'ssimos 

• 313 telasdiferentes sem repetigoes 

• A$ao ra'pida e envolvente 

• Aceita joystick ou teclado 

• Nivel de dificuldade crescente no decor- 
rer do jogo. 

• Agradavel surpresa no final 

O jogo foi testado e aprovado em nosso 
CPD. sendo que sua publicagao normal seria 
prejudicada devido ao tamanho do mesno, 
dai a opgao para sua publicado no servi^o MS 
Destaque, iniciado no n? 57 , e cujo objetivo 6 
justamente suprir os leitores com programas 
de boa qualidade que nao poderam ser colo- 
cados, normalmente, nas pa'ginas de MICRO 
SISTEMAS. 

O JOGO 

Neste jogo, voce e o srnpatico explorador 
aventureiro Kid K. Sador a procura dos valio- 
sos tesouros perdidos da Terra T. Nebrosa. 
Sao inumeros os perigos que voce deve enfren- 
tar: escorpides, cobras, fogueiras, pedras gi- 
gantes, jacarls, paredes esmagadoras e uma in- 



A tela de abertura de "Em busca dos tesouros 




Nosso herdi atravessa o abismo na corda 



Aqui ele deve pular os abismos e a pedra 
gigante para apanhar um dos tesouros _. 



t 



e passar para esta tela, onde deve apanhar 
o elevador ate o nivel inferior e a proximo tela... 




Jt 



na qua! o nosso hero i enfrenta mats um monstro 



finklade de outros que o aguardam, dispostos 
em maisde 300 telasdiferentes. 

Para mover Kid K. Sador, voce podera usar 
o joystick ou o teclado, com os comandos: 
5 - para esquerda; 8 - para direita; 0 - para 
pular os obstaculos, criaturas e buracos; e ain- 
da a tecla 6 (ou o joystick para baixo) - para 
descer da corda usada em varias tcias, para le- 
vi - lo ao outro lado do penhasco. 

Voce dispde de nove vidas para completar 
sua missao: recapturar os inumeros tesouros 
perdidos da Terra T. Nebrosa c chegar a ulti- 
ma tela do jogo onde estrf a caverna da cavei- 
ra gigante. 

Ao passar de tela, voce faz 100 pontos e 
“pegando” um tesouro (1000 a 7000 pontos, 
dependendo do numero de caracteres $ que o 
mesmo contiver). Para passar de tela, basta 
chegar na extremidade direita da tela atual, 
aparecendo, assmi, na extremidade esquerda 
da prdxima tela. 



AS DICAS 

Voce s 6 podera pular em cima de um ja- 
car£ quando este estiver de boca fechada. 
Voce podera, tambbm, enganar o jacare, fi- 
cando exatamente em cima do seu olho. Des- 
ta forma, quando ele abrir a boca, os dentes 
nao o alcangarao. 

Se voce estiver parado e quiser pular an- 
dando, basta pressionar simultaneamente as 
teclas 5 e 0 (para esquerda) ou 8 e 0 (para a 
direita). 

Quando o jogador perder todas as vidas, 
o micro imprimira a mensagem “FIM DE JO- 
GO”; e se voce esperar cerca de 20 segundos, 
o programa entrara' numa sub-rotina especial 
de demonstragao (muito iStil para se pegar ma- 
cetes). 

No mais, use de sua criatividade e imagina- 
gao para veneer os obsticulos e ultrapassar as 
telas. 

Para que voce tenha uma id 6 ia da qualida- 
de deste programa, selecionamos algumas fo- 
tos, onde 6 possivel observar o cuidado com 
os detalhes e o bom gosto na escolha dos gra- 
ficos. 

Esperamos poder repet ir com este MS Des- 
taque o mesno sucesso do programa anterior, 
o LOGCONT. que posamos contar sempre 
com programas de tio boa qu alida de para 
ocupar as paginas de MICRO SISTEMAS, o 
que vem a comprovar o alto m'vel dos nossos 
leitores e colaboradores. 

Alem da fita com o jogo, estara' dispom'vel 
aos leitores a listagem do programa com c 6 - 
digos hexadecimais, acompanhada das instru- 
96 cs para digita^ao. 

Como sempre, aguardamos as sugestdes e 
cri'ticas com rela^ao ao servigo. 



NOME: Em busca dos tesouros 
LINGUAGEM: Assembler Z80 
EQUIPAMENTO: Compativeis com o ZX81 
PRC-REQUISITOS: 16 Kb de RAM 
PREQO: Fita cassete com mstrugbes e 
programa — CzS 120.00; listagem em 
hexadecimal com mstrugbes para digitagdo 
- CzS 50.00 



Tadeu Curinga da Si hr a cursa atualmente a 
quarts sdrie do cur so de Elatrotdcnica na Es- 
cola Tdcrnca Federal do Rio Grande do Nor- 
te. Ele 4 um autodidata em BASIC e Assem- 
bler, linguagens que aprendeu at rev 6s de H- u 
\rros e revistas. M 
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COMO COMPRAR PROGRAMAS: Fapa seu pedido por carta, reladonando o cddigo dos produtos, quantidades. valor unitArio a total por produto. 
Ao terminar feche um total geral. Nossos pregos para PROGRAMAS j4 incluem as despesas postais. N5o se esqueca de identificar-se e ao local para re- 
messa. Anexe cheque nominal £ STOP ICARAI DISCOS E FITAS LTDA. e remeta para o endere^o abaixo. Seu pedido s er4 prontamente atendido 
logo ap6s a liberapSo pels rede bancAria do valor correspondente. 

Gravapoes garantidas por 30 dias a partir da data de atendimento do pedido quanto a defeitos de fabricapao. 

Pedidos para as linhas APPLE e SINCLAIR, somente serSo atendidos quando colocados por correio. Em nossa loia atendemos somente as linhas 
I J t W^ ZX SPECTRUM e MSX. neste caso com 20% de desconto sobre o prepo lisiado 
mm I W I @ As ofertas aqui com. das somente sao vai.das para pedidos colocados por correio. inclu.ndo se nesta l.mitapao as linhas ZX SPECTRUM e MSX. 

INFORMillCI CORRESPONDENCE: PRAIA DE ICARAf,211 / Lj. 03 - NITEROl-RJ- CEP 24.230 -TEL.: (021) 717-1700 










A evolucao dos 
jogos no Brasil 

Divino Carlos R. Leitao 



E m 1977, urn pequeno eletrodo- 
mestico fabricado pela Philco fa- 
zia algum sucesso devido ao no- 
vo uso que aprescntava para os 
aparelhos convencionais de televiaffo. 
Tratava-se do Telejogo Philco, que per- 
mitia aos seus usuarios selecionar tres 
tipos diferentes de jogos: futebol, te- 
nis e paredfo, brincando em dupla ou 
contra o aparelho diretamente na tela 
de urn televisor comum. 

Taman ho foi o sucesso que em bre- 
ve surgiria uma nova versffo do apare- 
lho, ja com dez jogos incorporados. Tais 
jogos n£o tinham nem de longe a resolu- 
qSo de um jogo computadorizado atual, 
pois, na verdade, cram todos variates 
em tomo de duas barras se movendo no 
video e rebatendo uma bolinha em mo- 
vimento, com exce^Jo do tiro-ao-prato 
existente na segunda vers5o do produto. 

Apesar do sucesso inicial, este tipo de 
aparelho nZo se manteve no mercado, 
devido a vdrios fatores, inclusive a cren- 
9a de que estragava os aparelhos de tele- 
visJo. Estava porem lan9ada no Brasil a 
semente dos jogos computadorizados, os 
popu lares video-games. 

O segundo aparelho deste tipo a fazer 
sucesso foi o Atari, que surgiu nos mer- 
cados paulista e carioca atraves dos ma- 
gazines Mappin e Mesbla, quecomercia- 
lizaram, em apcnas dois meses, 20 mil 
unidades do mesmo. No entanto, pro- 
blemas legais com o fabricante, que ape- 
nas recmbalava aparelhos importados, fi- 
zeram o Atari desaparecer do mercado 
legal, obrigando os prime iros comprado- 
res a dependcr exclusivamente dos 
muambciros para conseguirem novos 
cartuchos que eram lan9ados em grande 
quantidade no exterior. 

Em pouco tempo, Rio c Sffo Paulo 
viram-se coalhados de pequenos clubes 
de video -games, que ahigavam ou ven- 
diam tanto os cartuchos de jogos quan- 
to os proprios aparelhos. Este comercio 
fez grande sucesso e come9ou a se ex- 
pands para o interior do pais, abrindo 
os olhos dos grandes fabricantes para a 
necessidadc de sc legalizar o comercio 
dcstes equipamentos. Estavamos em 
1981 e os computadores domesticos 



ainda eram novidade por aqui, mas os 
video -games ja eram a scnsa9$o do mo- 
mento. 

Quern oonseguiu sair na frente no 
lan9amento de um video -game legali- 
zado foi a Phillips com o Odissey, que 
na epoca ja era um fracasso de vendas 
nos Estados Unidos. No entanto, com 
uma boa estrategia de marketing o pro- 
duto chegou a fazer algum sucesso por 
aqui, sendo que os jogos mais vendidos 
foram o Come-Come, uma versffo do 
famoso Pac-Man, e um programa cu- 
jo nome foi modificado para relaciona- 
lo com o Didi dos Trapalhdes e que 
agradou a garotada. Alguns jogos para 
Odissey, recorde de vendas no exterior 
tais como “O Senhor dos Aneis” e “Wall 
Street”, que utilizavam alem do video, 
pe9as e tabuleiros, n3o chegaram a agra- 
dar o publico brasileiro. 

Varias firmas come9aram a lan9ar 
versfles do Atari no Brasil, sendo que 
apenas a Gradiente conseguiu se sobres- 
sair ao lan9ar um Atari com caractcristi- 
cas originais e todo o peso de seu nome 
por tras de inumeros cartuchos bem 
produzidos, a um pre90 razoavel. 

A Sharp tambem entrou neste merca- 
do com o Intellivision, um outro tipo de 
video -game que chegou a fazer um su- 
cesso razoavel tanto no exterior quanto 
no Brasil. Ate aqui ja havia tres tipos 
diferentes de video -games sendo comer- 
cializados legalmente e comc9avam a 
surgir aparelhos vindos de fora, tais co- 
mo o Colleco que na epoca de seu lan- 
9amento no exterior foi considcrado o 
melhor dos video -games devido & sua 
grande capacidade de resoh^So e aos 
fantasticos jogos existentes para o mes- 
mo. Duas firmas come9aram a fabricar 
o Colleco no Brasil, mas ambas tiveram 
problemas com sua legaliza^o e este 
video -game nunca chegou a fazer, por 
aqui, o merecido sucesso. 

Ja nesta epoca, a pirataria fazia mi- 
lionarios, pois surgiam iniimeras firmas 
especializadas em copiar cartuchos im- 
portados; algumas chegaram ao cumulo 
- n3o sei dizer se do sucesso ou da im- 
punidade - de exportar para os Estados 
Unidos, tudo ilegalmente, e claro, mas 




Do Telejogo Philco, 

I passando pelo Atari, ate 
as fantAsticas versoes 
para micro, os games 
sempre foram atrapao, 
embora muitos nao 
coQhepam... 
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sempre um motivo de orgulho para os 
autores de tais fapanhas. 

Estes fabricantes competiam com os 
cartuchos originais com uma diferenpa 
de prepo, de pelo menos a metade de 
um cartucho importado, que tambem 
so entrava no Brasil por meios ilegais. 
Esta facilidade era acessivcl a qualquer 
um que tivesse alguns dolares, contudo 
s6 durou ate as grandes empresas assu- 
mirem o timffo de scus navios. 

Assim que o mercado se viu abasteci- 
do de video -games e cartuchos legaliza- 
dos, e vendidos em qualquer loja de ele- 
trodomesticos cm suavcs prestapdes, os 
clubes e lojas especializadas em comer- 
cio de mercadorias contrabandeadas co- 
meparam a fechar suas portas, sobrando 
apenas uns poucos que conseguiram 
diversificar seu trabalho e legalizar suas 
operates. Isto impediu que os novos 
lanpamentos chegassem is m3os dos 
usuarios brasileiros; alem disto, o pro- 
prio mercado externo de video -games 
estava falido devido a evolupSo dos mi- 
crocomputadores que deixavam para 
trds qualquer video -game pois podiam 
rodar programas de melhor qualidade 
prestando-se ainda para inumeras outras 
tarefas. 

Houve ate mesmo algumas tentativas 
fracassadas de transformar os video-ga- 
mes em microcomputadores: um exem- 
plo e a propria Colleco que criou o 



n 




O primeiro Atari legalizado no Brasil 




O kit do Telegame 



Adam’s, um micro que tambem era 
video -game, mas ele nSo colou la fora 
e nem chegou a aparecer por aqui. 

No Brasil algumas empresas ainda 
insistent em manter a fabricapSo de 
video-games, pois aqui eles custam bem 




Cartucho para "ter" programas em cosset e 



mais barato que um micro e o mercado 
aceita ate mesmo alguns lanpamentos 
de procedencia bastante indefinida, 
porem o unico padrJo que conseguiu 
sobreviver foi o Atari, provavelmente 
pela quantidade de jogos disponiveis 
(6 mil jogos diferentes em pesquisa de 
1984, nos EUA). 

Uma das tentativas mais recentes 
de incentivar o uso destes aparelhos 
foi a criapSo do Telcgame que permite, 
mediante o uso de um modem, contac- 
tar uma central com 162 jogos, alem 
de oferecer aos seus usuirios um servipo 
de informapOes semelhante ao video- 
texto. Este servipo conta atualmente 
com 60 tipos diferentes de informapOes 
tais como programapSo de cinemas, 
teatros ou itineraries de linhas-de- 
onibus, entre outros. 



253-1120 



Com a Centraldata 
a entrega e imediata 



253-1120 



NAO POIMHA EM RISCO O SEU COMPUTADOR, ADQUIRIIMDO 
PRODUTOS DE QUALIDADE CONSAGRADA. 



MiDIA MAGNETICA 

• Disketes e fitas magn6ticas, marca DATALIFE 
VERBATIM, com 5 (cinco) anos de garantia 

• Discos magn6ticos, marca IMPELCO, com 
1 (um) ano de garantia 

• Disketes de 5 1/4" para limpeza do cabepote de 
leitura e/ ou gravap§o 



• FITAS p/impressoras em geral, marca 
CARBOFITAS, com garantia total contra defeitos 
de fabrica<?3o 

• Etiquetas PIMACO - PIMATAB 

• Formuiarios contlnuos e pastas 

• Arquivos p /disketes com capacidade para 
10 (dez) ou 100 (cem) disketes 

condiqOes especiais 

PARA REVENDEDORES 



Suprimento e coisa seria 
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CEIIRALDAII 

Com i flepreseniacoes Lida 


, Distribuidor Autorizado: 

| CARBOFITAS . PIMACO . VERBATIM 

Av. Presidente Vargas, 482 - Gr. 201 /203 
Tel.: KS (021 ) 253-1120 - Telex (021 ) 34318 






A EVOLUQAO DOS JOGOS NO BRASIL 



-■ 



Atualmente o Telegame so esta dis- 
ponivel nas capitals de SSo Pauk) e 
Rio de Janeiro (e nos proximos mescs 
Belo Horizonte), mas pode ser acessado 
por outras cidades via DDD. 

Ha uma previsSo dos proprietaries do 
servi^o de oferece-lo nos mesmos mol- 
des para os usuSrios de microcomputa- 
dores, sendo que a primeira linha a ser 
servida seria a dos micros MSX. Para 
maiores informa?Oes sobre o Telegame, 
deve-se contactar os telefones (Oil) 
280*1796, em SSo Paulo; e (021) 
285-4833, no Rio. 

Quern possui hoje urn video -game 
compativel com o Atari tern ao seu 
dispor, alem de uma consideravel cole- 
990 de programas em cartuchos, um ti- 
po diferente de cartucho que permite 
ler programas diretamente de uma fita 
cassete, como fazem os micros. Porem, 
tal cartucho e as fitas para o mesmo 
estSo muito dificeis de serem encontra- 
das, pois a maioria das lojas que antes 
vendiam o Atari com destaque est9o 
virando as costas para este tipo de equi- 
pamento; os proprios fabricantes n9o 
podem ser encontrados de forma que 
a era do Atari tambem esta com os dias 
contados. 

Durante a asccnsSo e queda dos video- 
games, o micro preenchia seu espa^o e 
junto com ele surgiram os jogos de com- 
putador que sempre ocuparam um lugar 
de destaque neste universo t9o amplo 
que e o da informat ica. Na realidade, 
os video -games sempre foram micro- 
computadores, mas com uma rela^So 
bem mcnor de interagSo com o usuario, 
pois prestavam-se apenas para a execu- 

990 de programas, n9o permit indo usos 
diferentes, quer pela inexistencia de te- 
clado na maioria deles ou simplesmente 
pela baixa capacidade de memdria, 
que normalmente vinha no prdprio 
cartucho com o jogo. 

Hoje os micros dominam todos os 
setores da civiliza99o e os jogos em 
computador ainda s9o um pouco mar- 
ginalizados pelos proprios usuarios, que 
n9o encaram a divers9o como uma coisa 
seria. No entanto, s9o estes mesmos 
sisudos usuarios que est9o sempre nas 
lojas atras de um joguinho “para o 
fiiho se iniciar”. As desculpas s9o varias, 
mas o motivo e um so, pois os atuais 
jogos existentes para estas pequenas 
maravilhas s9o simplesmente fantasti- 
cos: a antiga barra dos jogos de tenis 
do Telejogo Philco foi substituida 
por um jogador uniformizado e equipa- 
do com a raquetc e todos os movimen- 
tos cl^ssicos do esporte e a bolinha 
chega a perfe^So de fazer sombra para 
auxiliar uma visualiza99o em tres di- 
mensdes de forma inacreditivel, sem 
contar os efeitos sonoros que s6 n9o 
incluem os xingamentos de um Mac- 
Enroe. 




In te lli vision da Sharp (2? modelo) 




Intellivison da Sharp (19 modelo) 



Os jogos atuais de microcomputado- 
res permit em que praticamente qual- 
quer tipo de atividade seja simulada na 
tela de um aparelho de televis9o. Ha 
tantos tipos que fica dificil fazer uma 
divis9o dos mesmos por categoria, mas 
basicamente se dividem em jogos-de- 
a9^o, raciocinio e simula99o, entretan- 
to, alguns se enquadram nas tres cate- 
gorias. 

Nos jogos-de-a9Jo, o maior sucesso 
foi o Space Invaders , praticamente o 
precursor deste tipo de jogo, sua fama e 
t9o grande que ainda hoje se pode ver 
lan9amentos de versOes deste programa. 
Atualmente, os jogos-de-a99o pura e 
simples, sem um objetivo concreto, 
est3o praticamente em vias de extin99o: 
os usuarios fleam cada vez mais exigen- 
tes e os modernos jogos tern que ser 
mais que satisfatorios. 

Os jogos-de-a9ffo tern um publico 
pequeno mas cativo, e podemos enqua- 
drar nesta categoria os Adventures que 
s9o jogos onde o limite de possibilidades 
fica por conta da imagina99o do proprio 
usuario. Quando o programa 6 bem 
feito, o proprio jogador e quern determi- 
na o andamento do mesmo e de uma 
forma natural, pois, normalmente, jogar 
um Adventure e como contar uma 
historia, sendo voce mesmo a persona- 
gem. Ainda na categoria de jogos-de- 
raciocmio, temos jogos que exigem toda 
a capacidade mental do usuario, desde 
um simples Master-Mind, mais conheci- 
do no Brasil como senha, ate jogos-de- 
xadrez que se igualam aos grandes mes- 
tres, apesar de nunca conseguirem 
superd-los. 

Na categoria de simula93o, o universo 
se expande, pois a totalidade dos jogos 
sSo simula90es de alguma atividade, 
mas alguns se adequam mais ao sentido 



da palavra, como por exemplo os simu- 
ladores-de-voo, que em alguns casos, 
sSo programas de tal complexidade que 
simulam perfeitamente o comportamen- 
to de um avifo, sendo que normalmente 
o jogador e colocado no interior de uma 
cabine real para ter a sensa99o perfeita 
de um voo verdadeiro. 

£ logico que programas deste tipo 
nfo est9o por ai a disposi99o de todos 
n6s, mas existem, e, quando menos se 
esperar, pode surgir a oportunidade de 
experimenta-los. Por enquanto, os usud- 
rios de micro dever9o sc contentar com 
os simuladores mais simples, que mesmo 
sem coloca-los em uma cabine pressuri- 
zada s9o fantasticos, tanto pela scnsa99o 
inedita que transmitem ao jogador 
quanto pelo envolvimento. Ja vi casos 
de jogadores que ficam desesperados 
quando o aviso que “pilotam” esta 
caindo ou e atingido por um ca9a ini- 
migo. 

Alem dos simuladores-de-vdo, exis- 
tem outros tipos onde fica dificil de- 
terminar se e um jogode-a9So ou simu- 
lador, mas existe uma categoria de 
simuladores que e facilmente identified- 
vel, sSo os programas que simulam te- 
mas de sucesso, este e um tipo de jogo 
que faz grande exito atualmente, pois 
aborda filmes, personagens dos quadri- 
nhos ou da literatura em geral e ate 
pessoas que tenham se destacado publi- 
camente. Normalmente, esses programas 
sSo consumidos rapidamente pelos usua- 
rios e tern vida curta, pois assim que 
o assunto deixa de ser noticia o progra- 
ma perde seu carisma. 

Alguns exemplos de jogos com temas 
de sucesso sSo as versOes para computa- 
dor dos filmes Ghostbusters (“Os Ca9a 
Fantasmas); Goonies ; Rambo e A view 
to a kill (“James Bond na mira dos 
assassinos”). Outros temas com persona- 
gens de historia-em-quadrinhos sSo re- 
presentados por Popeye; Flintstones e 
Spy x Spy. Estes sSo apenas alguns 
exemplos dos mais famosos, mas a 
lista 6 muito extensa. Normalmente 
tais programas sSo dispomveis para a 
maioria dos microcomputadores que 
dominam o mercado dos homecompu- 
ters no Brasil: a linha Apple em geral; 
o TK90X; e a linha MSX, sendo que 
existem versOes para os micros Atari 
e Commodore, os quais comprovada- 
mente tern muitos adeptos em nosso 
territorio. 

Naturalmente, essa materia nSo tern a 
pretensSo de fechar o assunto em 
torno de um tema tSo complexo quanto 
os jogos de computador, portanto, so 
pude abordar superficialmente o univer- 
so deste tipo de programas. 

No Brasil, s6 o que temos sSo produ- 
tos vindos do exterior e com raras exce- 
90es alguma coisa consegue ser produzi- 
da aqui, com assuntos que tenham algo 
a ver com nossos costumes e realidade. 
Por experiencia prdpria, posso afirmar 
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que e muito dificil para um programa- 
dor brasileiro se dedicar i cria^Jo de 
jogos a nSo ser nos seus tempos de fol- 
ga, pois o mercado ainda n£o esta capa- 
citado a absorver este tipo de trabalho 
que, como ja foi dito antes, nSo e consi- 
derado serio. 

Como se pode observar, o passado 
nos mostra que nunca foi incentivada 
a cria^o de jogos no Brasil, apesar da 
importancia que os mesmos sempre 
tiveram, nem que seja apenas comercial- 
mente. Naturalmente ha exce90es, eu 
mesmo tive a oportunidade de ver co- 
mercializados quatro jogos de minha 
autoria, para a linha ZX 81 , atraves da 
Ciberne, mas nunca tive a oportunidade 
de ver nada ser produzido aqui para vi- 
deo-game ou microcomputador, mesmo 
sabendo que alguns programadores fi- 
zeram bons trabalhos, que infelizmente 
nunca foram creditados aos mesmos. 

Alguns acontecimentos atuais tern 
me deixado mais otimista com rela9ao 
ao futuro tanto deste segmento da pro- 
grama9So quanto ao proprio futuro da 
informdtica no Brasil. 

£ muito bom, por exemplo, ver al- 

S ns companheiros lan9arem seus traba- 
3 S no mercado com o devido reconhe- 
cimento de suas autorias, todos de ex- 
celente qualidade e comprovadamente 
criados aqui, gra9as a persistence des- 
tes autores que, apesar de tudo, conti- 




O Atari da Microdigital fndo i mais fabricado) 




Atari da CCE 




Um dos collecos nactonais. 



nuam acreditando em um futuro mais 
promissor onde o nosso trabalho tenha 
algum significado e nossa historia deixe 
de ser escrita pelos estrangeiros. 

Esta materia 6 dedicada aos meus 
amigos Renato Degiovani, autor do 
programa “Amazonia” e do “Editor de 
Adventures”, o primeiro uma versSo 
bem mais sofisticada do fa mo so “Aven- 
turas na Selva”, ja publicado em MI- 
CRO SISTEMAS e o segundo, um pro- 
grama que com certeza ira criar uma 
nova gera9So de programadores; a Fre- 
derico Liporace, Fernando Leibel e Jose 
Luiz Koblitz, autores de “O Enigma dos 
Deuses”, que se nSo tern um motivo bra- 
sileiro, carrega toda a nossa malicia 
para as piramides do Egito. 

Alem destes, que Fiz questSo de citar 
publicamente, dedico esta materia tam- 
bem a todos os outros programadores 
brasileiros, que conhe90 apenas pek) seu 
trabalho, que infelizmente nfio esta 
sendo reconhecido nem divulgado pelas 
proprias softhouses as quais eles tanto se 
dedicam. 



Divino Carlos R. Leitao 6 formado em dese- 
nho mecSnico pelo Senai. Ele 6 Programador 
de mic recomputed ores hi quatro anos, ten- 
do inclusive alguns programas comercializa 
dos pela Ciberne Software. Atualmente atua m 
como Consul tor na Area de informitica. 




APLICATIVOS E UTILITARIOS 

EXTHATO DE BANCOS - Control. mu> movi- 
memos bancAnot 

AGENDA ELETRONICA - Agenda p are nomn a 

enderegos com relAgio • deapertador 

BANCO DE DADOS PESSOAL - Um verMtil ar- 

qulvo Dessoa I 

DISK RAM - Um pequeno a incrivel programa 
qua lha parmita dobrar a mamArie do MSX 
EOI ASM - Editor Ataamblar a Disassembler nom 
*6 programa 

EOITEXT - Editor da Taxto com opcAo da mu- 

dangai na cor dot car ec teres 

EOITART — Editor grAfico 

TOQUE — Conttrua ritmos a tons 

EDITOR LOGO — Editor da macro linguagam grA- 

fica Logo 

COMPILADOR BASIC - Compllador da taxto 
SISTEMASGRAFICOS - Editor grAfico 
MSX WORD — 0 maij famoao aditor da taxto ax la- 
tent* 

QUICK DRAW — Editor da Dram 
ENGENHARIA ECONOMIC A - Editor f •nanca.ro 
daEPCON 

GEN - Disassembler Debugger 
MON - Editor Assembler 

JOGOS 

010 HIPER SPORTS 1 - Piscina. C*ralo. Cam. 
ElAstica a Barra Paralela 

011 HIPER SPORTS 2 - Tiro ao Alvo, Arco a FI*-, 
xa a Levantamento da Paso 

012 HIPER OLIMPICS 1 - Olimpiadas 1, 100 
MTS Rasos. Salto. 400 MTS Rasosa Martalo 

013 HIPER OLIMPICS 2 - Olimpiadas 2. 100 
MTS. 1500 MTS. Dardo a Salto am Altura 

014 PING PONG - TAmt da mesa tridimensional 
0f5 CRAZY RACE — Uma corrida maiuca polo la- 
birinto i caga das bandeiras 

016 ROAD FIGHTER -Um rally com Atimos gr*- 
ficos a vArias lases 



MSX 



017 MOON PATROL — Vasculba a lua com seu 
trator lunar am busca das bases 

018 LE MANS — Uma autAntica corrida onde at* 
os retrovisoret funcionam 

019 SKY JAGUAR - Columbia, um dosmalhoras 
Jogos do ataque As naves 

020 GALAGA - IdAntico ao Fantastic das mAqui- 
nasda Flipar 

021 DOG FIGHTER - Um oviAo dos anos 50 na 
caga da sous inimigos 

022 POLAR STAR - Pen: or r a o pianola a dastrua 
os raatores nuclear.* 

023 MAXIMA - Conquista o e*>ago destruindo 
dezenas da inimigos diferentes 

024 MAGICAL TREE — Ajude o indiozinho a SU- 
bir numa Arvora mAgca 

025 GHOSTBUSTERS — Caca os fantasmas como 
no tilma, ao tom da mu sea da Ray Parker Jr. 

026 THESEUS - Lava Theseus at* a princes., ofei- 
tos grAficos Atimos 

027 HUNCH BACK - Pula as muralhas do cattelo 
a salve a princess 

028 LAZY JONES - Um hippie muito doido sol to 
num pr*dio com 18 portas, cada uma com uma 

•jrpresa 

029 ANTARTIC ADVENTURE - A,ude o pinguin 
a explorer a AntArtida 

030 FROGGER — Ajude o sap mho A atrsvetsar 
ruas a riot- 

032 Y IE AR KUNG FU 1 - Excalenta hitador 
contra inimigos ainda melhores 

034 SUPER CHESS - Jogue xadrez contra sau mi- 
cro a prove qua A um m astro 

035 RIVER RAID — IdAntco ao do Atari, tA qua 
tarn mais da 50 fates 

036 GOON IE S - Trai at* voc* toda a tensecAo do 
film., incrivel 

037 ULTRA CHESS - Nova versAo da xsdraz com 
jogadss cronomatradas 

038 KING'S VALLEY- A melhor vertAo da cacadas 
am pirAmidos. proteja-se com punhais a pcaratas 



039 BUCK ROGERS — 3-D Atimo. dirija tua nave 
especial a ul traps saa as dimansAas 

040 ALIEN 8 - Sentacional, and. com sau robA 
nesta incrivel avantura do futuro 

041 LOQE RUNNER 2 - Suba atcadas. cava bura- 
cos mas nAo deixe qua alas to peguem 

042 KUNG FU MASTER - Otimo karat*, tuba da 
nival a taja promovido a mostra 

043 HAPPY FRET - Lava o homem berrigudo a 
fair* a pegs' os objetot 

044 FLIGHT DECK — Docola com 1 J. . 9 Jatos da 
beta tomando cuidado com os cagas inimigoi 

046 WARROIO - Batalha atpacial no sAculo XXIII 

046 HOLE IN ONE IGOLFI - Jogue golf no seu 

micro 

047 CHESS TEACHER - Professor q. 

048 STOCK FISCAL - Tipo qoebracabega — Or- 
ganise o armazAm 

049 VOLLEY BALL - -logo da volley 

060 SUPER COBRA - Cheque at v«r at bases com 
sau helicAptero 

061 HIPER RALV - Super raly 

062 KNIGHTMARE - VocA tar* a dificil mittAo 
da destruir a Madua do Templo do Mai 

063 HIPER ESPORTE 3 - Compat*A« sensacio- 
nait 

054 KNIGHT-LORI — 87 alas de um labirinto tri- 
dimensional 

FORMAS DE PAGAMENTO: 

1«) Cheque cruzado a nominal A RED SOFT, reme- 
tido na mown, carta com o padido. 

2*1 Raambolto Postal, model Klede um posreo mais 
damorada Em qualquar um dos casos seu pedido 
sera ontrogua no prazo mAximo da 10 dies a corner 
da data do recab imen to do padido 

CAIXA POSTAL 91916 - PETROPOLIS - RJ - 
CEP 25600 - Tel.: (0242) 43*008 
PRECOS: Qualquar programa. salvo at especifcsdo 
am contrArio. custa CzS 40.00 IPedxJo min mo da 
2 Programas). 
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CULTURAI ZT. 



terminal de videotex to 






2) A informatics 
entre os andncios 
classificados da Tvdata. 



■ A TV Data, fornecedora de servipo do Videotexto do 
Rio Grande do Sul, esti implantando o Classificado de In- 
form^tica, onde empresas do ramo poderao colocar infor- 
mapoes de interesse do usu^rio ligadas a miquinas, software 
e prestapao de servipos. Outra novidade que est2 sendo im- 
plantada pela TV Data 6 o Video Cultura, atraves do qual a 
empresa pretende incentivar os usu£rios do Videotexto a ter 
neste veiculo eletronico uma fonte para obter as mais varia- 
das informapoes culturais nas ireas de cinema, teatro, shows 
entre outras. 

A TV Data 6 filiada a Associapao Gaucha de Videotexto; 
e W um ano atua no servipo com anuncios classificados do 
tipo p^ginas amarelas; informapoes sobre educapao e cultu- 
ra; religiao; e informapdes sobre o prdprio Videotexto. Por 
ocasiSo de eventos importantes a TV Data desenvolve servi- 
pos temporaries, como aconteceu na Copa do Mundo, quan- 
do colocou uma cartela eletronica com todos os grupos, 
atualizada diariamente. Na Feira de Informitica deste ano 
a TV Data criou urn espapo para a Digitel, onde foram di- 
vulgados seus lanpamentos. 



B A Divisao Farmaceutica da Rhodia descobriu uma nova 
utilizapSo para o Videotexto. Pela primeira vez o sistema foi 
usado em congressos medicos, permitindo a profissionais e 
estudantes da Area o acesso aos temas que estavam sendo 
debatidos. Isso aconteceu durante o congresso de Ortope- 
dia, realizado no mes de setembro, em Fortaleza, e no Con- 
gresso de Reumatologia, no mesmo mes em Bel6m. Atrav6s 
do cddigo "SPV* Rhodia" os interessados podiam obter 
pelo Videotexto o indice dos temas que estavam sendo de- 
batidos a cada dia. E teclando o cddigo do assunto deseja- 
do e fornecendo seus dados pessoais o usuJrio recebia gra- 
tuitamente, pelo correio, um resumo da palestra apresenta- 
da. A experiencia foi pioneira na 2rea de congressos m6di- 
cos e durante os eventos foi instalado um terminal publico 
no Hospital das Clinicas, possibilitando o acesso a todos os 
profissionais interessados. 



B Entrou no ar recentemente, em cardter experimental, um 
novo servipo da Telesp dentro do Videotexto. Trata-se da 
lista telefonica eletronica, com o cadastro de todos osassi- 
nantes atualizado em "real time". A atualizapSo 6 diaria e 
executada pelo prdprio sistema, que foi desenvolvido pela 
Telesp. Desta forma qualquer mudanpa de numero ou mes- 
mo alterapao de raz£o social de uma empresa no dia seguin- 
te ja constari da lista eletronica. A lista eletronica nSo visa, 
absolutamente, substituir as listas impressas, mas sim facili- 
tar a consulta no caso de desconhecimento por parte do 
usuirio do nome completo do assinante a ser localizado. 
Mesmo sabendo parte do nome a ser localizado ou do ende- 
repo o usuario poderd obter, atraves do cruzamento das in- 
formapdes, uma lista de todos os assinantes que se encaixam 
nos dados fornecidos, facilitando a localizapSo daquele que 
procura. Aldm disso o que vale para a consulta e a base fo- 
netica do nome procurado, e nSo a ortografia. Para a con- 
sulta a lista eletronica a Telesp esti instalando terminais ins- 
titucionais de Videotexto em todos os seus postos de ser- 
vipo. 0 acesso 6 atraves do cddigo 140. 0 servipo 6 aberto 
ao publico em geral e gratuito. 



B A 31 Informdtica vai promover nos prdximos dias 24, 
25 e 26 um semin^rio sobre o sistema Videotexto, onde 
seri dada enfase para as oppoes de formapSo de redes 
privadas baseadas em micros e mainframes. Outro ponto 
que seri discutido durante o seminario 6 a aplicaptfo do 
Videotexto em areas especi'ficas de mercado, tomando 
como exemplo o mercado imobiliario, da construpao a 
venda. 0 seminario vai se realizar no hotel Othon e o prepo, 
inclui'do o almopo nos tres dias, o material e certificado a 
de Cz$ 7 mil 980. Maiores informapfies podem serobtidas 
na 31 Informatica pelostels.: (Oil) 521-9509 ou 247-2528, 
Sao Paulo. 



MICRO SISTEMAS recebeu em sua redapao uma 
carta de Marcelo Oliveira Andrade, de Minas Gerais 
interessado em saber como poderia acessar o sistema 
Videotexto atraves de seu micro, um CP 500 M80c. 

Ai vai a resposta... 

Prezado Marcelo, 

Para entrar no Videotexto usando o seu micro 
como terminal voce dever£ adquirir o kit para acesso 
ao sistema. Esse kit e composto por um modem, que 
permite a transference de dados via rede telefonica; 
uma interface para comunicapSo e o software. De pos- 
se do kit voce ter3 que entrar em contato com a Tele- 
mig - Companhia Telefonica de Minas Gerais, para 
fazer sua inscrip£o e receber sua senha de usuario. 

As revendas da Prolbgica em Belo Horizonte, onde 
voce poder^ encontrar o kit s3o o Carrefour, Mesbla, 
Jumbo Eletro e Foto Elias. 



_. ./Micro 
Sistemas 
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TERMINAL TVA-DGT 



ideia que deu certo. 

IWIIIIGITIJ5 



A DIGITUS visando atendero mercado nacional 
na area de informatica, desenvolvendo uma 
tecnologia adaptada as condicoes brasileiras, 
lanca mais um produto. o TVA-DGT. 

TVA-DGT e um terminal de vfdeo assincrono 
TTY, generico e semi-graf ico. projetado para 
atenaer as empresas que utilizam sistemas com 
rede multiusuario. 

Alem do seu baixo custo e sua alta 
flexibilidade, o TVA-DGT pode, com a troca da 
ROM interna, emularqualquer terminal 



assincrono especifico, permitindo assim, 
aplicapoes em sistemas profissionais como: 
terminal de sistemas multiusuario, terminal de 
micro e minicomputadores e terminal para 
entrada de dados. 

O video do TVA-DGT com 25 linhas por 80 
colunas em fosforo verde. tela anti-reflexiva e 
base posicionadora ainaa possibilita a 
utilizacao de duas variedaaes de teclado: 
matricial e ;/ IBM-PC" etambem a conexao de 
impressora. 



Cz$ 12.095. 



MATRIZ: Rua Gdvea, 150 - Jardim America - Fone: (031) 332.8300 - Telex: 3352 - 30430 - Belo Horizonte - MG 
RIO DE JANEIRO: Rua Barata Ribeiro, 3Vl si. 404 - Copacabana - Fone: (021) 257.2960 
SAO PAULO: Rua Faxina, 47- Centro - Fone: (011) 572.0137 




inioiante 

A programagao da tela nos micros compativeis com o ZX81 exige 
alguns cuidados especiais. Conhega, entao, como ela e organizada. 



Usando POKEs 
na memoria de tela 

Eduardo 0. C. Chaves 



E m nos sos quatro artigos anteriores ("A Tela do seu micro ”, MS 
n9 49; "Manipulando a tela". MS nP 53; "Manipulando a tela 
do TRS-80", MS nP 54; e "Manipulando a memoria de tela”, 
MS nP 60). dcscicvemos os varios formatos de tela e come^a- 
mos a ver como manipula-las, usando instru(bes em BASIC para criar 
tcxtos e graficos. 

No ultimo artigo, usamos a instru(3o POKE do BASIC para ma- 
nipular a memoria de tela dos microcomputadores das linhas Apple e 
TRS-80, modelo III. Hoje vamos fazer o mesmo com a linha 2X81. 

A razao para tratarmos dessa linha em separado esta no fato de 
que ela usa uma area variavel de memoria para armazenar o codigo dos 
caracteres que s3o exibidos na tela e nao uma area fixa de memoria, co- 
mo e o caso dos micros das linhas Apple e TRS-80, modelo III, que 
vimos da vez passada. 

Dissemos no artigo anterior, que os microcomputadores tern uma 
area de sua memoria que e reservada para guardar o codigo do carater 
que esta sendo mostrado em cada uma das posifdes da tela de baixa re- 
solu<,-3o. Nos micros da linha Apple, essas posi^bes de memoria $3o as de 
numero (endere^o) 1024 a 2047; e nos micros da linha TRS-80, mode- 
lo III, essa posi^bes sao as de endere^o 15360 a 16383. 

No caso dos micros da fun ilia ZX81 nao temos conditio de di- 
zer, de antemSo, quais os enderesos da memoria de tela, ja que os mes- 
mos sao variavcis, dependendo do tamanho do programa que esta na 
memoria. Isto porque, ao inve's de ter uma a'rea fixa da memoria para 
armazenar os codigos dos caracteres que estSo sendo exibidos na tela, 
esses micros usam os primeiros 793 endere^os de memoria livres apos a 
area ocupada pelo programa que esta na memoria! 

Isto pode parecer complicado - e na yerdade e bem mais compli- 
cado do que seria sc os endere^os de memoria sempre fossem os mes- 
mos - mas nao e tao dificil assim. 

Precisamos, em primeiro lugar, explicar como e que descobrimos, 
em urn caso concreto, onde e' que cometja a memoria de tela. Em segun- 
do lugar, precisamos explicar poraue c que s3o necessarias 793 posi<;bes 
de memoria, quando a tela de baixa resolugio dos micros da linha 
ZX81 so pode, via de regra, cxibir 22 linhas de 32 colunas (isto 6 , 704 
posifbes), ou, na melhor das hipoteses, 24 linhas de 32 colunas (istoe, 
768 posi^bes), se Icvarmos em conta as duas linhas usadas pelo sistema 
para suas mensagens. 

Vejamos, em primeiro jugar, como dcscobrir onde come^a a me- 
moria de tela. A situa<;5o n5o e tao desesperadora, pois nao e necessario. 
por exemplo, contar os bytes de seu programa para descobrir onde e 
que come^a a memoria livre disponivel para a tela. Os micros da linha 
ZX81 possuem duas posi^bes de memorias, as de endere^o 16396 e 
16397, que armazenam o endere^o da primeira posi^Io da memoria de 
tela. A posi^ao 16396 armazena, em niimeros hexadecimais, o byte me- 
nos significativo do numefo e a de endere^o 16397, o byte mais signifl- 
cativo. 

A fun<;3o PEEK (x) do BASIC, que e' a contrapartida da instru- 
<;3o POKE, e que vai ajudar-nos a descobrir qual o endere^o de memoria 
em que comeija a memoria de tela. Vimos no artigo anterior, que a ins- 
tru<;3o POKE permite que seja alterado o conteudo de qualquer posi«,ao 
de memoria. colocando nela um conteudo qualquer — que pode variar 



de 0 a 255. A fun^3o PEEK (x) nos permite ver ou ler, mas nao alterar, 
o conteudo de qualquer posi(3o de memoria e sua sintaxe e: 

. . . PEEK endere^o de memoria 

Os micros da linha ZX81 dispensam o uso de parentesis ao redor 
do endere^o de memoria. Os equipamentos de outras linhas nao. 

£ bom ressaltar que. sendo uma fun^ao e nao uma instru^ao, 
PEEK (x) tern que ser complemento de alguma instru^So, o que explica 
a raz3o dos tres pontinhos. Sendo uma fun^3o. PEEK (x) vai fomecer 
um resultado (que sera um numero de 0 a 255) e temos que dizer ao 
programa o que fazer com o resultado, que pode, por exemplo, ser im- 
presso na tela ou atribuido a uma vanavel. Dessa forma, uma instn^So 
completa poderia ter uma das seguintes formas: PRINT PEEK X ou 
LET A =PEEK X. 

Dissemos acima que os microcomputadores da linha ZX81 pos- 
suem duas posi^bes de memoria, as de endere^os 16396 e 16397, res- 
ponsaveis pelo armazenamento do endere^o da primeira posiQao da me- 
moria de tela. O que temos que fazer portanto e ler o conteudo dessas 
duas posi^bes de memoria. 

Dissemos tambem, que a posi(3o do endere?o 16396 armazena 
em numeros hexadecimais o byte menos significativo do numero e a de 
endere^o 16397, o byte mais significativo. Sem entrar em detalhes so- 
bre numeros hexadecimais, voce deve saber que o valor do byte mais 
significativo do numero hexadecimal tern que ser multiplicado por 256 
e somado ao valor do byte menos significativo para obtermos o endcre- 
90 da posi?3o em que corner a memoria de tela. Assim a instru(,ao 
sera: LET D=PF.EK 16396+255 ‘PEEK 16397. 

A razao pela qual temos que multiplicar o byte mais significativo 
por 256 e porque num numero hexadecimal de quatro digitos, o valor 
do digito menos significativo (o ultimo, a direita) tern aue ser multipli- 
cado por 1 ; o do seguinte por 16; o do proximo por 25o; e o do quarto 
digito, o mais significativo (o primeiro, a esquerda), por 4096. Lembre- 
se do sistema decimal: o valor do digito menos significativo e’ multipli- 
cado por 1; o do seguinte por 10; o do terceiro por 100; o do quarto 
por 1000, e assim por diante. 

Desta forma, como cada posi(3o de memoria pode armazenar um 
numero que vai de 0 a 255 em decimal, e sendo que 255 em decimal 
corresponds a FF em hexadecimal (Feo digito de maior valor no hexa- 
decimal e conesponde a 15 em decimal), cada posi^ao de memoria pode 
armazenar qualquer numero hexadecimal de ate dois digitos. 

Logo, o primeiro byte do numero hexadecimal armazenado na 
posi^So de memoria 16396 conesponde aos dois digitos menos signifi- 
cativos; e o segundo byte armazenado na posi(3o de memoria 16397 
conesponde aos dois digitos mais significativos, o terceiro e o quarto. 
Como o "peso" do terceiro digito de um numero hexadecimal e, como 
vimos, 256, precisamos multiplicar o valor encontrado na posii^o de 
memoria 16397 por 256. Certo? (Em um artigo posterior, discutiremos 
os sistemas numericos, e, entao, essas questbes ficarao cristalinamente 
claras). 

Ha mais uma complica^Sozinha. O primeiro endereco da memo- 
ria de tela n3o armazena o codigo do primeiro carater exibido na tela, 
pois na primeira posi^So dos microcomputadores da linha ZX81 e' ar- 
mazenado um demarcador, que separa a memoria de tela da area de me- 
moria ocupada pelo programa. O codigo do primeiro carater exibido na 
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tela fica armazenado), portanto, na segunda posi^io de memoria. Desta 
forma, devemos acrescentar 1 ao resultado obtido. para termos o ende- 
re^o da poriglo de memoria que armazena o codigo do primeiro carater 
exibido na tela. Assim. a instrucSo fica: 

LET D = 1 + PEEK 16396 + 256*PEEK 16397 

Vamos, agora, em segundo lugar, explicar a razao de haver mais 
endere^os reservados para a memoria de tela do que posi^des na tela. 
Vimos, antes, que a tela ocupa 793 posi^Oes na memoria, enquanto a te- 
la de baixa resolu^So dos micros da linha ZX81 so pode. via de regra, 
exibir 22 linhas de 32 colunas (isto e\ 704 posi^bes), ou, na melhor das 
hipoteses, 24 linhas de 32 colunas (isto e\ 768 posi^oes), neste caso.le- 
vando em conta as duas linhas usadas pclo sistema para suas mensagens. 

Ja vimos tambe'm que uma das 793 posi^Oes da memoria de tela 
(a primeira) so serve para demarca^ao, restando portanto 792. Existem 
ainda 24 posi^dcs de memoria inexplicadas, que sao utilizadas para indi- 
car o fim de cada linha, sendo por conseguinte responsaveis pela dife* 
ren^a entre 792 e 768. Desta forma como ha 24 linhas na tela, incluin- 
do as duas usadas pelo sistema, temos 792 posifdes (24*33), sendo que 
24 indica o numero de linhas e 33, o numero de colunas (32) mais a po- 
sicio de memoria utilizada para indicar o fim da linha. Explicado o mis* 
terio? 

Antes de prosseguir, e' preciso esclarecer que os codigos dos ca- 
racteres adotados pelos micros da linha ZX 81 sSo diferentes dos presen- 
tes na tabela ASCII padrifo e dos codigos usados no Apple e TRS-80, 
modelo III. Nos proximos dois artigos estaremos discutindo osgerado- 
res de caractercs dos micros dessas ties famQias, ocasiao em que essas 
questbes serao analisadas detalhadamente. 

Vamos come^ar, agora, a aplicar o que discutimos ate' aqui. Ana* 
lisaremos primeiro um programa relativamente simples: 

10 CLS 

20 LET MT - 1 ♦ PEEK 16396 ♦ 256 • PEEK 16397 
30 LET C - 32 
40 LET L ■ 22 

50 FOR K • MT TO MT* ( <C* 1 ) »L ) - 1 STEP C« 1 
60 FOR I « K TO K*(C-1) 

70 POKE 1,23 
80 NEXT I 
90 NEXT K 

Ele faz com que a tela inteira (exceto as duas linhas do sistema ) 
dos micros da famuia ZX81 seja preenchida com o carater de codigo 
23, que e', neste caso, um asterisco (que, como vooe‘ se lembra, tinna 
codigo 42 no caso dos micros das famiias Apple e TRS-80, modelo III). 
Como voce pode notar, ha dois la90s Coops) no programa, que fazem o 
computador executar a instni9lo POKE 704 vezes, colocando o codigo 



23 nas 704 posifbes de memoria que correspondem a memoria de tela. 
Como as posi^bes de memoria que recebem o codigo 23 sao as que con* 
trolam o que e' exibido nas primeiras 22 linhas da tela, esta ficara com 
um asterisco em cada uma de suas 704 posi^des. 

Vejamos como funciona o programa. A variavel MT (lembre-se 
de Memoria de Tela) i inicializada na linha 20, com o numero corres- 
pondente ao endere^d da segunda posi^ao da memoria de tela (visto que 
a primeira posicJo conte'm o demarcador; nao se esaue^a), a variivel C 
(Coluna), com 32 e a variavel L (Linha) com 22, nas linhas 30 e 40, res* 
pectivamente. 

0 primeiro la^o, que inicia-se na linha 50 , i executado 22 wzes. 

O valor inicial de K e o mesmo de MT e o final i o valor de MT mais o 
produto, subtraido de 1 , do numero de colunas, mais um, pelo numero 
de linhas. O incremento (STEP) e 33 e sendo o numero de colunas igual 
a 32, se adicionarmos 1 a ele, teremos 33, que multiplicado por 22 da' 
726, que por sua vez subtraido de 1 resulta em 725. 

Logo, o valor de K vai desde MT ate' o valor de MT mais 725, isto 
de incrementos de 33 em 33. Se a variavel MT, para simplificar o exem* 
plo, fosse inicializada com o valor 1, a variavel K teria os seguintes valo- 
res ate' atingir 726 (que e' o suposto valor de MT, 1 , mais 725): 

001 034 067 100 133 166 199 232 265 298 331 

364 397 430 463 496 529 562 595 628 661 694 

Apos a ultima itcra^ao (repcticao) o valor ja seria 727, e, portan- 
to, o la^o nao seria mais executado. Como voce pode ver, na linha 50, o 
la£o do K e' executado exatamente 22 vezes, sendo uma vez para cada 
linha das primeiras vinte e duas linhas da tela. 

E o la^o da linha 60? Es9c e' executado 32 vezes, para cada valor 
de K e como K tern 22 valores diferentes, o conteudo deste la^o - que 
6 constituido apenas pela instru^So POKE - sera executado 32*22 ve- 
zes, ou seja, 704 vezes. Em cada execui;ao do la^o a variavel I assume, 
inicialmente, o valor de K, e esse valor e incrementado ate' que 1 venha a 
ter o valor de K mais 3 1 . 

Supondo que o valor de K inicialmente seja l,o U90 sera execu- 
tado ate' que o valor seja 1+31, ou seja 32. Quando o valor de 1 for 33, 
o U90 nao sera executado pois a trigesima-terceira posi9§o da memoria, 
depois da primeira de cada linha, conte'm, como vimos, o 9cparador de 
linhas que nao dewe ser alterado, e nao deve ser dado, portanto, um 
POKE nessa posi93o, sob pena de arruinar o programa e a tela. 

Tudo entendido? Compreendeu porque e' que a tela e' enchida 
de astcriscos? Experimente mudar o codigo do carater para o codigo 8, 
por exemplo. Cuidado, pore'm, que apenas os codigos de 0 a 63 e de 
128 a 191 sao va'lidos, como wreinos em artigo futuro, ale'm disso co- 
mo o codigo 0 representa o cspa9o em branco, ao o utilizarmos a tela n 
sera enchida de espa90s em branco e ficara' portanto limpa. 
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USANDO POKES NA MEMORIA DE TELA 



Experimente, tambe'm, alterar o valor da variavel L para 23 e 24 
e voce vera que, surpreendentemente, usando a instni(2o POKE, voce 
consegue escrever nas duas linhas inferiorcs da tela que antes eram reser- 
vadas aspenas para o sistema! Se voce quiser, ja sabera como program ar 
mensagens e specials, usando a linha reservada para as mensagens do sis- 
tema, bastando para isso ver o codigo dos caractcres alfabe'ticos no ma- 
nual do computador. 

Mas vejamos, agora, um programinha um pouco mais complica- 
do, pore'm muito semelhante a um que vimos no artigo anterior - um 
programa para fazer uma mol dura na tela: 

10 CLS 

20 LET MT ■ I ♦ PEEK 16396 ♦ 256 • PEEK 16397 
30 LET C • 32 

40 LET L - 22 

45 REM MOLDURA SUPERIOR NA PRIMEIRA LINHA 
50 POR I • MT TO MT* (C- 1 ) 

60 POKE 1,23 
70 NEXT I 

75 REM MOLDURAS LATER A I S DA SEGUNDA A DEC I MA -QU I NT A LINHA 
80 FOR I • MT* ( C* 1 ) TO MT* { (C* 1 ) • ( L- 1 )-1 ) STEP C* 1 
90 POKE 1,23 
95 POKE I *f C- 11,23 
100 NEXT I 

105 REM MOLDURA INFERIOR NA DECIMA-SEXTA LINHA 
110 FOR I - MT*((C*1J*(L-m TO MT* ( (C* 1 ) *L>-2 
120 POKE 1,23 
130 NEXT I 

Para fazer a moldura superior, na primeira linha, o processamen- 
to e' facil. Primeiramente e' feita uma iteracJo, nas linhas SO a 70, atra- 
ve's da qua! a instru(Jo POKE e' executada 32 vezes, colocando o codigo 
do astensco nas 32 posifdes de memoria que vJo do enderefo do codigo 
do primeiro carater exibido na tela ate' aquele endere^o mais 31 . Supon- 
do que o valor de MT fosse 1 , a variavel I teria o valor inicial de 1 , e este 
seria incrementado ate' tomar-se 32, fazendo com que o la?o fosse exe- 
cutado 32 vezes. 

Passemos, agora, para a moldura inferior, que e' feita pelas linhas 
1 10 a 130. O procedimento aqui e' basicamente o mesmo e as posi^des 
de memoria que agora recebem o codigo 23 sao as que vao do valor de 
MT mais 693 (33*21) ate MT, mais 724 (33*22 e igual a 726, que sub- 
traido de 2 da 724). 

Suponhamos, novamente, que o valor de MT fosse 1. A variavel 
I teria, portanto, um valor inicial de 694 (1+693) e seria incrementada 
ate' atingir o valor de 725 (1+724) , fazendo com que o laco fosse exe- 
cutado 32 vezes. Cuidado, pois se wee esquecer e der um POKE na po- 
si^ao seguinte, o seu programa sera destruido. 



A parte mais complicada diz respeito as molduras laterais, es- 
querda e direita. Como a primeira e a ultima colunas da primeira e da 
vige'sima-segunda linhas ia tern um asterisco, em decorrcncia das molduj 
ras horizontals, vamos fazer as molduras verticals irem da segunda ate' 
a vige'sima-primeira linha apenas. £ isto que explica o fato de que na li- 
nha 80 aciescentamos o valor de C+l ao valor de MT e diminuimos 
uma unidade do valor de L. 

A instru^ao da linha 80 cobre, portanto, as posiedes de memoria 
que vao (supondo, mais uma \ez, que MT seja igual a l)de 34, que e' a 
primeira posicJo da segunda linha, representada por MT+(C+i), ate' 
693, que e' a ultima - isto e', trigesim a -segunda - posi(Jo imprint ivel da 
penultima, ou vige'sima-primeira linha, pois 33*21 e' igual a 693. Ola^o 
e' cxecutado, portanto, 20 vezes, pois o valor da variavel I vai de 34 ate' 
693, inclusive, cobrindo 660 ntimeros, que divididos por 33 (STEP) 
produzem o resultado 20 . 

Tudo claro ate' aqui? Esperemos que sim ! Nao se esque^a do de- 
talhe do comando STEP C + 1 , ainda na linha 80. Isto quer dizer que a 
itera^ao cobrira as posiedes de memoria de 34 a 693 (supondo que MT 
seja igual a 1), de 33 em 33 posies. Como 660/33 da 20,essa itera^Io 
sera repetida, como vimos, 20 vezes. Na primeira vez, I tera o valor de 
34; na segunda, de 67: e na terceira, 100 etc . . . Na de'cima-nona itera- 
9 J 0 , o valor de I sera' 628 ;e na vige'sima, 661. Na vige'sima-primeira vez, 
o valor de 1 iria para 694, e entJo a itera^Jo n3o e” executada porque o 
valor maximo permitido era, como vimos, 693. 

Resta explicar as linhas 90 e 95 - lembre-se de que os micros da 
famdia ZX81 nSo admitem duas instru^des na mesma linha. Ha, nas li- 
nhas 90 e 95 , duas instnifdes POKE , sendo que a primeira coloca na po- 
iiqio de memoria representada por I o codigo de um asterisco, a cada 
vez que a itera^ao e executada. ao pas so que a segunda faz o mesmo 
com a posi^So I+(C-1 ), isto e', 1+31. 

Na primeira execu^io dessas duas linhas, I vai represen tar, como 
vimos no paragrafo anterior, a primeira coluna da segunda linha e 1+31, 
a ultima coluna dessa linha. Como a itera^ao sera repetida 20 vezes, in- 
crementada de 33, as linhas 90 e 95 vao colocar um asterisco na primei- 
ra e na ultima coluna das 20 linhas que ficam entre a primeira e a ultima 
linhas da tela disponivel ao usuario. 

Ate' que nao e' t Jo o complicado assim , n Jo e' mesmo? 
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"COMUTADORES MANUAIS E AUTOMATICOS 
DA SUPORTE E O CAMINHO MAIS FACIL 
PARA SEU PERIFERICO” 
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Comuta qualquer equipamento 
que utilize padrao 
RS 232 (Serial) 

1x2, 1x3, 1 x4 . . .1 xN 



Comuta: Impressoras. 
Modens, Linhas. Computadores. 
Microcomputadores. Drives, etc. 



Comuta qualquer 
equipamento que utilize 
padrao Centronics (paralelo). 
1x2. 1x3, 1x4... IxN 
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PROGRAM AS PARA MSX 

JOGOS: 

Hot Shoe - Hunch Back - Dog Fighter- Polar Star Cannon Fighter 
Spooks & Ladders - Star Avenger - Shadow of the Bear 
Shark Hunter- Binary Land - Le Mans - Norseman - Classic Adventure 
Pyramid Warp - Cave Flight - Bumerangue/Maze UP - Buzz OFF - 
Disc Warrior- Lazy Jones - Boulder Dash - OH Mummy 

APLICATIVOS: 

Curso de Basic - Calcomp (calculadora cientifico-financeira) 
Topografia (eng. civil) - Imposto de Renda - Controle de Estoque - 
Mala Direta - Contas a Pagar e Receber - Orgamento Domdstico 
Orgamento de Obras - Viga continua. 
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Voce ainda limpa seu micro como 
se ele fosse um eletrodomestico? 




Porfalta de alternativa, a 
avangada industria de 
informatica brasileira 
retrocedia toda 
vez que usava 
algodao, 
paninhos, 
alcool e outros 
liquidos para fazer a limpeza 
de equipamentos sofisticados 
como um microcomputador. Acaba 
aqui essa historia de improvisagoes. 
Vector novamente se antecipa e 
langa com exclusividade o Kit SCD, que 
passa a ser a maneira profissional de 
manteroseu micro limpoe 



SUPRIMENTOS 

PARA PROCESSAMENTO DE DADOS 



funcionando como novo. 
0 Kit SCD da Vector e complete: 
tern solugao antiestatica para video, 
teclado e rack; solugao para 
limpeza de cabegas magneticas; 
papel "lint-free" para remogao 
de excessos; bastoes Swabx 
para limpeza de teclas; e 
disquete para limpeza de 
drives bV*‘. Agora, basta 
ligar e pedir o Kit SCD, que a Vector 
entrega; como sempre, no ato, sem 
burocracia. t a Vector na velocidade - 
e na evolugao - da informatica 
brasileira. 
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KERNIGH AN, B. W. e RITCHIE. 

D. M., C — A linguagem de 
programagao. Editors Campus. 

Auxiliar o leitor a aprender 
como programar na linguagem C 6 
a proposta deste livro; uma tradu- 
pao do clbssico 'The C Program- 
ming Language" feita pela Edisa 
— Eletronica Digital S/A. 

Na primeira parte do livro 6 
apresentada uma introdupao a lin- 
guagem C atravfes de exemplos, 
que em seguida sao discutidos 
mais detalhadamente. Depois e 
descrita a biblioteca padrao de en- 
trada e saida responsbvel pela por- 
tabilidade de programas de um 
computador para outro (uma das 
maiores vantagens da linguagem) e 
tamMm i analisada a interface 
entre programas em C e o sistema 
operacional UNIX. 

No final do livro h£ um apen- 
dice com uni manual de referen- 
da da linguagem con tend o as re- 
gras de sintaxe e a semantics, o 
que permite esclarecer duvidas 
que venham a surgir no decorrer 
da leitura. 



MARTINS. W. F.; SUNG. Y. Y.; 
DIAS. L. F. D. e GUAZELLI, M . 

Jogos de habilidade, Editora 
Aleph. 

0 livro contbm nove progra- 
mas do tipo jogos de apao - como 
Asterbides e INDY 555 - e inteli- 
g6ncia — como Alcatraz — escritos 
em BASIC e/ou Linguagem de 
M4quina. Nos casos em que foi 
preciso utilizar o Assembler, a in- 
trodupao do programs foi feita 
em BASIC. Isto nao ocorreu ape 



nas em um jogo — Coelho Malu- 
co - no qual. para facilitar a digi- 
tapao e diminuir a possioilidade 
de erros. os au tores desenvolve- 
ram um monitor especi'fico. 

Albm dos ja citados, fazem 
parte do livro os seguintes jogos: 
Pacman; Estrada de ferro; Squash 
3D; Simba; e Gincana. 



MOREIRA. L. S. Y. e BURD, 

O. J.. MSX jogos (Vol. U. Editora 
McGraw-Hill. 

MSX Jogos 6 dividido em duas 
partes: a primeira - Jogos para 
aprender e criar - 6 composta por 
programas simples, que podem ser 
ampliados e melhorados. Visando 
este objetivo, os autores coloca- 
ram, em cada jogo, sugestdes de 
modificapdes. 

Na segunda parte, encontram- 
se os chamados "Jogos profissio- 
nais”, semelhantes aoscomerciali- 
zados em fita ou cartucho. Entre 
eles estao: Frogger; 0 jogo do ce- 
mitbrio; Trem maluco; Tubarao e 
Fbrmula interlagos. 



LIMA, D. S., Circuitos Sinclair 
(Inclui TK90X), Editora Campus. 

Circuitos Sinclair b dirigido 
aos usuarios que desejam imple- 
mentar seus equipamentos da li- 
nha Sinclair. O autor explica deta- 
lhadamente montagens de hard- 
ware, mostrando os circuitos, o 
material e instrupoes necessarias 
para se realizar as melhorias dese- 
jadas. Entre os circuitos forneci- 
dos estao led monitor; fonte; te- 
clado mecbnico; reset; inversor de 
video; e expansdes de RAM. Tam- 
bem sao apresentados cinco apbn- 
dices: Layout dos circuitos im- 
pressos dos micros; Esquema Sin- 
clair — relapao dos componentes e 
funpoes; Barramento de expansao 
Sinclair; Caracteri'sticas dos circui- 
tos mtegrados usados; e Layout 
em escala 1:1 dos circuitos im- 
pressos usados. 

LIVROS RECEBIDOS 

• Editora Atlas - MSX-pratca 
e dominio. 

• Editora Campus — Planilhas 
eletromcas - como usb-las. 

• EBRAS - Wordstar para 
CP/M e MSDOS; Lotus 1 -2-3 - 
tecmcas avanpadas; 

• MSX-melhores programas. 
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“RACIONALIZE 
SEU BUSINESS 
FORMS” 




01) MANUAL TECNICO DE FORMULARIOS 
CONTiNUOS 

A Editora Jolan acaba de preencher uma lacuna do mercado de 
publicapoes especializadas, com o lanpamento do livro de LUIZ 
CARLOS CARDOSO, um dos mais renomados profissionais do 
ramo. Com vasta experience pratica e didatica exercida nas maio- 
res empresas do setor, o autor e constantemente convidado a mi- 
nistrar cursos e realizar palestras pertinentes ao assunto. 

Um verdadeiro curso de especializapao em ‘ business forms ’, 
este livro e indispensavel para usuarios de informatica. profissio- 
nais de administrapao O&M. analistas. programadores, vende- 
dores e compradores de formularios continuos. Ensina como pro- 
jetar o formulario em funpao de seu equipamento de processa- 
mento. tendo em vista tambem a sua racionalizapao. 

0 MANUAL TfCNICO DE FORMULARIOS CONTINUOS contem 
248 paginas impressas em papel off-set, com 206 ilustrapoes fo- 
tos e tabelas. no formato 18X27, capa a 4 cores em papel espe- 
cial. com acabamento costurado e encadernado, uma exclusivi- 
dade da LIVRARIA SISTEMA 
PREQ0S POR EXEMPLAR Cz$ 250,00. 

0UTRAS N0VIDADES 

02) AUT0MAQA0 DE ESCRITORIOS — CAVELUCCI 105.00 

03) FORTRAN PARA MICROS — MARSHALL 53.00 

04) 68000 — MICR0PR0CESSAD0RES — inclui 

68008. 68010, 68012 — CRAMEER 80.00 

05) JOGOS — MSX — 2 volumes — Y0RG 150.00 

06) MAC GUIA DO USUARIO — DUFF 110.00 

07) dBASE TOTAL — GARCIA 165.00 

08) PR0GRAMAQA0 COBOL — 4. a edipao — 

BASTOS 87,00 

09) LINGUAGEM C PR0GRAMAQA0 E APLICAQ0ES 

— Modulo 105,00 

10) SIMULAQAO EM BASIC — McNITT 89.00 

11) LINGUAGEM ASSEMBLY 8086-8088 — UM 

GUIA BASICO — ERSKINE 50.00 

12) MANUTENQAO DE MICR0C0MPUTAD0RES — 

3. a edipao 72,00 

13) ABC — INFORMATICA — ARITMETICA E 

L0GICA — PESQUISAS — GALVA0 90.00 

14) INTELIGENCIA ARTIFICIAL EM BASIC — JAMES 112.00 

15) USAND0 AS R0TINAS DO APPLE — ABREU 148.00 




LIVRARIA SISTEMA 

AV. SAO LUIZ. 187 — GAL. METROPOLE 
TEL.:- (011) 257.61.18 — CEP 01046 SP. 



PARA AQUISICAO DOS LIVROS ACIMA ENVIE CHEQUE NOMINAL PARA LI- 
VRARIA SISTEMA LTDA. . AS DESPESAS DE ENVIO SAO POR NOSSA CONTA 
E SEU PEDI00 CHEGA MAIS RAPID0. 

*S0LICITE CATALOGO COMPLETO DE INFORMATICA NACIONAIS E IMPOR- 
TADOS. 

‘NAO ATENDEMOS POR REEMBOLSO POSTAL. 
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Micro 

Fiohas 



DEC 


HEX 




0 


0000 


16.384 


16384 


4000 


6.144 


22528 


5800 


0.768 


23296 


5B00 


0.256 


23552 


5 COO 


0.182 


23734 


5CB6 


— 



(CHCADD 
(PROGBAS 
(VARADD 
(INADD 
(WO R KPT 
(STKEND 
(ADSPFREE 
(P ERR 

(RAMTOP 

(UDGRAPH 

(MEMAVLB 



23631/32) 

23635/36) 

23627/28) 

23641/42) 

23649/50) 

23651/52) 

23653/54) 

23613/14) 

23730/31) 

23675/76) 

23732/33) 



Mapa geral da memoria do TK90X < 

■ 



descriqAo 



Memdria ROM - BASIC Sinclair. 

Arquivo de imagem — tela de alta resolugao. 

Area de atributos - indicadores de cor, brilho, flash etc.. 
Buffer da impressora. 

Vari^veisdo sistema. 

Mapa do speed drive. 



InformagSes de canais - usada apenas se o speed drive estiver conectado. 
Area de programa BASIC. 

Vari^veis do programa BASIC. 

Area tempor£ria de edigSo de linhas. 

Area tempor^ria de dados de INPUT. 

Pilha de cdlculo. 

Espago livre. 

Pilha da GOSUB — antes deste espago, se encontra tambem a area de 
STACK do processador Z80. 

Final da memdria dispomvel*. 

Caracteres redefim'veis pelo usuario*. 

Ultimo byte da RAM fi'sica. 



Estes valores podem ser modificados pelo usuirio sem prejuizos para o processamento normal do sistema. 



0 CASAMENTO QUE MEXEU COM A INFORMATICA 
MICRO PC SID E SOFTWARE NASAJON. 



O s grandes micros do momento sSo os da 
Linha IBM-PC*. 

A Nasajon desenvolveu Sistemas 
compativeis com esta tecnologia e com as 
necessidades de empresas e profissionais. 

Os Sistemas Nasajon foram projetados para a 
eficdcia. O Programa de Contabilidade, por 
exemplo, faz o trabalho de todo o mes em apenas 
2 horas. Permite o cadastramento de histbricos 
padronizados e de piano de contas com atb 5 
nfveis. Emite dibrio, razbo, balancete, balanpo, 
demonstrapbo de lucros e prejuizos acumulados, 
al6m de listagem por centro de custo e extrato de 
contas. 

Conhepa tambbm os Sistemas Nasajon para 
Folha de Pagamento, Contas a Pagar/Receber e 
muitos outros. Cada um custa apenas Cz$ 9.300 . 

Voce vai ver que por trbs de um grande micro, 
existe sempre um grande programa. 




fitaci/cijon 

k 4/i/tema/' 



■I 0 IcilW/ Representante SID (Linha PC) 

Rio: Av. Rio Branco, 45 - Gr. 131 1 - Tel.: (021)263-1241 e 233-0615 
S. Paulo: R. Xavier de Toledo, 161 Conj. 106 -Tel.: (01 1) 34.3083 



IBM e Marca Registrada da IBM. Co 

















MICRO! DEI A 

Software de Qualidade 

Software Profissional, Comercial 
e Domestico (Manuais em Portugues) 

Dcpartamento dc Apoio ao Usuario 
(081) 233-3617 



ESCOLHA 
E USE! 



SINCLAIR 

101 ■ Controte de Estoque 

102. Contas A Pagar 

103 . Contas b Receber 

104 . FluxodeCaixa 

105 . Mala Direta 

106 . Cadastro de Client es 

107 . Cadastro de Veiculos 

108 ■ Processador de Texto 

109 . Contabilidade DomAstica 

110. Agenda Telefbmca 

111. Fitoteca 

112 . Admimstra<;do de Biblioteca 

113. Orgamento Domestico 

114. Histograma 

115. Controle de Contratos 

116. Reserva de Consulta 

Fita CzS 70,00 



atkn^Ao 

Periodkamcntc darcmos dcscontos, csefbro 
caso, dos program as constarcm na lista dc 
promotes, rcceba junto com seu pcdido um 
brindc no valor do desconto. 



TK 90X Aplicativos 

181 . Or<;amento DomAstico 

182 . Reserva de Consulta 

183 . Controle BancArio 

184 . Controle de Estoque 

185 . Fluxode Caixa 

186 . Cadastro de Clientes 

187 . Contas b Pag ar 

188 . Contas b Receber 

189 . Histograma 

200 . Minidata 

201 . Agenda Telefonica 

202 . Administrate de Bibiiotecas 

203 . Fitoteca 

Fita CzS 70,00 



[ TRS80/MOD III 


I CP500 e Compatfveis 

1 213 . Controle de 


Estoque 


F-D 


I 214. Contas A Pagar 


F-D 


I 215 . Contas b Receber 


F-D 


I 216 . Fluxo de Caixa 


F-D 


I 217 . Mala Direta 


F-D 


I 218 . Controle BancArio F - D 
I 219 . Orgamento 


Domestico 

I 220 . Admimstra^Ao 


F-D 


de Bibiiotecas 


F-D 


I 221 . Mimdata 


F 


I 222 . Estoque 
Comercial 
223 • Controle 


D 


Financeiro 
224 . Cadastro de 


D 


Imbue is 

225 • Clientes 


D 


ImobiiiArios 


D 


226 . lista Negra de 




Teiefones 
227 . EmissSo de 


D 


Promissbrias 
228 . Admmistra<;6o de 


D 


loca^bes 
229 • Fichino 


D 


ImobiliAno 

| 230 . Processador de 


D 


Texto 


D 


231 . loto 

Fita CzS 70,00 
Disco CzS 300,00 


D 



MSX Aplicativos 

141 . AnAlise de Investimento 
142. Curso de Fisica 

(Movimento Uniforme) 

143 .Mimdata 

144 . Controle BancArio 

1 45 . Reserva de Consult as 

1 46 . Processador de Texto 



Fita CzS 70,00* 



REVENDEDORES 

■ Mesbla — Loja dc 
Oepartamentos (em todo Brasil) 

■ Lto Foto Informitica 

■ BTC de Nlterbi 

■ Mappin 

■ Compumix no 
Rio Info Shopping 

■ Hermes Macedo 

■ Brcnno Rossi 

■ Bruno Blois 

■ Magnodata 

■ Memdria Som e Video 










TK 90X 



204 . Batalha Espaciai 
205 . EspiAo 

206 ■ Mergulhador 

207 . Corrida de Moto 
208 . Set Pac 

209 ■ Figuras Tridimensionais 

210 ■ Sky na Neve 

211 . Construa Seu Chip 

212 . Editor de Texto 

Fita CzS 70,00 



SOFT 



TK2000 




123. Controle de 


Estoque 


F-D 


124. FluxodeCaixa 


F-D 


125. Controle BancArio 

126 . Or«;amento 


F-D 


Domfctico 


F-D 


127. Contas b Pagar 


F-D 


128. Contas b Receber 


F-D 


129. Mala Direta 


F-D 


130. Mimdata 


F-D 


131. Panilha Eletrbmca 

Fita CzS 70,00 
Disco CzS 300,00 


F 



| APPLE 

Unitron apll, Microengenho 


e Compatfveis 

132. Controle de 
Estoque 


F-D 


133. Fluxo de Caixa 


F-D 


134 .Controle BancAro 


F-D 


135* Orrjamento 
Bancario 


F-D 


136. Contas a Pagar 


F-D 


137 . Contas a Receber 


F 


138* Ma*<i Direta 


F-D 


139. Mimdata 


F-D 


140 - Mala Direta 2 
Drives 


F 


1 Fita CzS 70,00 
Disco CzS 300,00 





MSX 



147 - Xadrez 

148 - Hunch Bach 

149- Pyramide 

150 - Keystone Kapers 
151 - River Raid 

152 - HERO. 

153 - le Mans 
1 54 - Thezeus 
155-Dacathlon 
156 - Road Fighter 
157 -Yie Ar Kung Fu 

1 58 - Ping Pong 

1 59 - Galaga 

160 - Antartic Adventure 




Fita CzS 70,00 






MSX PRESS 



1.* Rcvista em Fita Cassete — J6 n«* lojas c bancas 
Programas (jogos, aplicativos e/ou utilitarios); Noticias 
Nacionais e Intemacionais; Club; Brincks; Cursos. 

POR APENAS as 90,00 



SISTEMAS 

232 . Sistema 
ImobiliAno 
(TRS80/MO0 III - 

CP500) CzS 2.000,00 I 

233. Sistema de 
Cobran^a 

e Faturamento (PC-XT) CzS 30.000,00 

234 . Banco de Dados 

(APPLE) CzS 5.000.00 



IMPORTANT! 

Caso nao encontrc atguns destes em um dos 
nossos revendedores, escreva-nos, especificando 
o numero do programa, se disco ou fita, consulte 
sc nccesslrio a tabcla e remeta cheque nominal 6 
MICRO! DEI A LTDA., Caixa Postal 6151 - CEP 
20022 — Rio de Janeiro (RJ) 



1 MCI 000 




117. Controle BancAno 




118. Ortjamento Dombstico 




119. FluxodeCaixa 




; Fita CzS 70,00 








CP400 




161 - Logo 




162 - Musical II 




163 - Pascal 




[ 164 - Tele Comunica<;Ao 




165 - Banco de Dados 




1 66 - Sintetizador de Vbz 




Fita CzS 100,00 








A quant idade de joysticks disponivel no mere ado nacional 
ainda e pequena, mas , mesmo assim.ja temos uma boa variedade 
de modelos. Aqui vai uma analise de alguns destes perifericos 
existentes no Brasil e, de quebra, alguns modelos estrangeiros. 



Joystick, do simples ao sofisticado 



N a cdi^ao numcro 51 de MI- 
CRO SISTEMAS (dezem- 
bro de 85) um dos assun- 
tosda Se<;ao Hardware foi joystick 
para Apple, tendo sido apresenta- 
dos dois modelos diferentes. 

Pas-ado quase um ano.o tema 
joystick continua sendo interessan- 
te e MS traz uma analise mais 
completa onde sao avaliados mo- 
dclos para diveias linhas de mi- 
cros. 

Faz-se necesaria uma breve 
explica^o sobre os diversos tipos 
de joystick existentes no merca- 
do, pois, como quase todo pro- 
duto ligado a informa'tica, nao 
existe uma padronizai;ao para estc 
per if ^r ico. 

Um joystick 6 basicamente 
uma extensao do teclado de um 
micro, que permite um controle 
mais precise sobre um programa. 
Normalmcnte 6 utilizado em jo- 
gos, mas scu uso estende-se a 
diversos tipos de software. .Os 
modelos existentes sao bastante 
variados, princrpalmente no mer- 
cado externo onde podem set 
cncontrados cm formatos inimagi- 
naveis, tais como em aparelhos 
com radio-controle, usando cone- 
xdes de raios infravcrmelhos, e 
ate mesno alguns sofisticados mo- 
delos acionados com um simples 
movimento de oDios. Tais para- 
fernalias sao derivadasda pesquisa 
cspacial e trazem recursos de co- 
mando de mod er nos jatos e he- 
licdptcros para os microcomputa- 
dores. 

No Brasil, a quantidade de 
joysticks ainda 6 pequena, mas 
meano assim ban diversificada 
ja que cada fabricante quer criar 
seu proprio padrao. O mais popu- 
lar deles e o modelo classico da 
Atari, adotado nos micros TK90X 




JS 1000, o modelo standard da 
CCE. 

e MC 1000, mas que pode ser fa- 
cibnentc adaptado a outros equi- 
pamentos apenas mudando o seu 
conector. 

Na realidade, torna-sc difi'cil 
ate mesmo cstabelecer padrocs pa- 
ra joysticks, pois cada micro 
possui scu proprio padrao; a uni- 
ca divisao possi'vel de ser feita < 
com relagao ao tipo de Icitura 
que pode ser analogica ou digital. 

Os joysticks mais populares 
ao dgitais, isto significa que 
seus comandos apenas enviam ao 
micro uma mensagem do tipo 
ligado ou desiigado. Ja os de Ici- 
tura analogica podem gerar uma 
faixa de resistencia entre 0 (des- 
iigado) e o valor maximo de seu 
potenciometro ou resistor, valor 
estc que conespondcra ao estado 




O JS 1. da Gradient e. para a linha 
MSX. 




O modelo profissiona I da CCE. 



ligado. A Icitura anakSgica possibt- 
lita uma maior precisao, pois o 
espav'o entre o ligado e o desii- 
gado e muito demorado para um 
microcomputador trabalhar. Exis- 
tem ainda alguns modelos hibri- 
dos, que combi nam circuitosanaki- 
gicos com digitais, como no ca» 
da track -ball, que 6 um tipo 
muito sensivel de joystick, tendo 
no lugar da torre uma esfaa que 
deve ser girada na dire^io do mo- 
vim ento desejado. 

Os joysticks constantes desta 
analise foram selecionados usando 
como crit^rio sua qualidade e a fa- 
cilidade de encontra-los no merca- 
do, e sobre elcs sera feita uma 
descri^ao e avala^o de sua per- 
formance em uso. Para os usua- 
rios de micros compativcis com o 




O joystick HB 100, da Sharp. 




Modelo base dos joysticks da 
Microdigital. 




Joystick analdgico da Proldgica. 



Apple e IBM/PC, um quadro 
adiante mostrara um exempio do 
que existe no exterior, ja que nao 
encontramos joysticks de boa 
qualidade para estas linhas em 
nosso mercado. 

• Joystick CCE JS 1000 (mode- 
lo standard) - colocado no mer- 
cado para atendcr ao CCE Super- 
Game e ao micro MC 1000, este 
e o Fusca dos joysticks. Seu 
design lembra o modelo inicial 
da Atari com um botfo de tiro e 
alavanca de controle com oito 
po s^des. 

Uma das maiores deficiencies 
deste modelo 6 a fragilidade da 
torre de comando, que nao resis- 
Je a um movimento mais brusco. 
No entanto, e bastante facil en- 
contrar pe?as de repos<2o. 

Este joystick possui uma boa 
resposta aos comandos, mas nao 
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tem boa empunhadura; ap6s al- 
gum tempo de uso a mao estara 
cheia de calos e dolorida. Os ca- 
nhotos terfo bastante dificuldade 
se tentarem usar este periterico 
devido a posi^fo do botJo de dis- 
pero. 

Alem dos equipamentos para 
os quais foi desenvolvido, este 
modelo pode ser usado sem adap- 
tatjdes no micro TK90X e qual- 
qucr video-game compativel com 
o Atari. 

• Joystick CCE JS 1 15 P (mode- 
lo profissional) - oferecendo um 
alto impacto visual, este modelo 
serve aos mesmos equipamentos 
que o anterior, porem sua qua- 
lidade c bastante superior. 

Ventosas de fixa^ao.cabo ana- 
tomico e sistema quadruplo de 
disparo sao algumas.de suas ca- 
racteristicas principals que, ale- 
das a uma excelente sensibilida- 
de e resistencia, o tornam um dos 
modelos mais sofisticados da in- 
dustry nacional. 

Construido para ser u-ado fixo 
a uma superficie lisa, e ideal para 
o uso prolongado e que exija 
velocidade e precisao nos coman- 
dos, servindo bem a destros e 
ca nhotos. 

• Joystick Microdigital - a Mi- 




Joystick Greika. para a linha 
Apple. 

aodigital fabrica diver sos tipos de 
joystick, todosbaseados no mode- 
lo da foto, sendo que as variates 
sao geraimentc no circuito e 

conectores. 

Com dois disparadores laterals 
que, dependendo do modelo, po- 
dem ser independentes ou conju- 
gados, e uma alavanca bem di- 
mensionada, os joysticks da Mi- 
crodigital possuem boa scnsibili- 
dade e resistencia, alem de uma 
empunhadura que permite o uso 
prolongado sem muito desconfor- 
to. Todos os modelos tiveram 
uma boa atua^ao nos equipamen- 
tos para os quais foram plancja- 
dos, permit indo igual facilidade 
de manejo com asduasmaos. 

A linica preocupa<;ao do usua- 



wmm 






O SOFTWARE 
NACIONAL 
DIFERENCIADO 



MtMOPlAV- ctvrtM-se aprendenJo nptfs taOuadi • tuOo o Qua qiaaar InMHo 1 USX' K-7 
(Cat ISO) APPLEVOS (CzS 2901 



INGlES PI MtMOPlAV - mas 300 palavras para o USX (801. 0 net**! ova 0 

APPLE 



DATILOGRAFIA -c 



> tear' USICK- 7 (2*0) a APPLEVOS (3501 



SETA - agenda noma, andarago. Matonr * data Foga ao convanoona! USX'K-7(t20) 



POKER REAL - 0 cotrpulador eg*. aposta. t*Ha. mas .. nto rouba USX - K-7 
(ISO) 



AV. PAULIS I A - advardura riactonal v»nc to numa Area notice Oa S Paulo USX ‘ 

K-7 (ISO) 



PLOT VAL - daaanha curvas ratabvas ao componamarao Oa maabmanlos. dados empee- 
sanaa. ale APPLEVOS (8001 



SUPER MALA - npnma aaouatas Oa gualQuac tamantio com quakjuar dado ou cadaslro 0 
aocmataOo para pessoas. cargos a ampeasas Disp os ifto lyre. lagaO fO o. 
consumes. tOOpron de trata memo APPLE CP/U (9001 

No sau revanOeOoc ou pato rverrootso postal RB CONSUL TORIA Rua Liar Coaho, 308 — 
q S3 (01309) S Paulo - SP - Foods 256- 1007 a 259-3 149 



DE PREFERENCE AO SOFTWARE ORIGINAL 



Joysticks importados 



Os micros da linha Apple 
e com pa live is com o IBM -PC 
sempre foram mat servidos em 
materia de joysticks; isto aqui 
no Brasil, mas ndo no mercado 
ex ter no LA ex i stem inumeros 
modelos e seria impossivel des- 
crever todos. A selefdo dos 
tipos aqui representados foi 
baseoda na possibilklade de 
testd-los e fotografd-bs. 

Todos os joysticks escolhi- 
dos possuem um excelente 
acabamento, centra I ta^ao au- 
to mat ica da alavanca. cont ro- 
les de sensibilidade e a juste 
individual dos pot encid metros, 
resistencia ao desgaste, alem 
de algumas outras caracteristi- 
cas individuals que serdo des- 
critas a segutr. A performance 
dos mesmos em uso i excelen- 
te. oferecendo respostas ime- 
diatas e precisas aos coman- 
dos. 

• Joystick Anko (Apple e 
compativeis) - apresentado 
em duas versOes. o modelo 
em pldstico possui tres dispa- 
rodores independentes. um a 
/rente, outro no alto do cor- 
po e um terceiro no topo da 
alavanca. que serve para acio- 
nar o disparo automdtioo. O 
modelo em metal possui ape- 
nas dois disparadores coloca- 
dos lado-a-lado no corpo do 
aparelho e ndo possui dista- 
nt automdtico. 

Os joysticks Anko sdo fa- 
bricados na TaiUndia. 

• Machine Gun (Apple e 
compativeis) - este i um mo- 



delo de competifdo; possui 
alavanca altamente sensivel e 
disparadores laterals que permi 
tem excelente empunhadura. 
possibilitando o uso de ambas 
as maos. 

Caso se deseje disparo au- 
tomdtico. hd uma chave seleto- 
ra ao lado dosajustesde sensi- 
bilidade. Com este joystick fi- 
ca dificil perder um joguinho. 

O nome do fabricante do 
Machine Gun i apenas Q. C. 
e tambem i proveniente da 
TaiUndia. 

• Quick Shot X (IBM-PC e 
compativeis) - este modelo i 
o mais sofisticado. possuindo 
seletor para tiro automdtico. 
ventosas de fixofdo. disparado- 
res de alta sensibilidade e ala- 
vanca de controle precisa e de 
perfeita maneabilidade. £ fa- 
bricado pela Spectravideo, em 
Hong Kong. 

Nenhum dos modelos cita- 
dos neste quadro estd dispo- 
nivel no mercado nacional, 
mas para quern deseja procurd - 
los, seus custos estdo em tomo 
do salgado prefo de USt 60j00 
M a lores informal des podem 
ser obtidas com o proprietd- 
rio dos mesmos que gentilmen- 
te os emprestou para andlise 
e fotos. Ao proprietary da A. 
L. S. Informdnca nossos agra- 
decimentos (a A. L. S. e uma 
loja especialaada em Apple e 
PC que fica em Rtbeirdo 
Preto - SP. na Rua Visconde 
de Inhauma. 898, CEP 14100, 
o telefone i (016) 636 -5379. 



DAISY WHEEL 

INTERFACES P/ COMUNICACAO 
MICRO MAQUINA DE ESCREVER 



• Compatibiliza Olivetti ET 121, m iucttTI nw 

Olivetti Praxis 20 ou Facit 8000 ET121 < 121 

com qualquer micro existente — j— 

do mercado. MICRO 

• Compativel com software usado qu MAINFRAME 
no mainframe dos 

computadores IBM 4341 e IBM 

4381 OLIVETTI DW 

• Homolocjado pela SEI praxis 20 | 20 

• Compativel com Word, A ' 

Wordstar. Wordstar 2000 e I MICRO I 
demais processadores de texto. L — * 

• Ndo altera as caractensticas de 

sua miquina de escrever. FACIT ^ DW 

• Buffer interno de 4 a 8 Kbytes, 8000 Booo 

liberando seu micro mais a 

rapidamente MICRO 

• Alta qualidade de escrita. OU MAINFRAME 

. Velocidade de 20 

COMUTADOR DE IMPRESSORAS DW/CH1 PARALELO PA- 
DRAO CENTRONICS Com ele voefi poderd selecionar a impressora 
com a qual o micro irS se comunicar. 

- Dispensa a retirada de cabos de uma impressora para outra. 

- Informa qual impressora estd pronta para imprimir. 

- Proporciona um aumento no tamanho dos cabos. 

SELECIONADOR DE MICROCOMPUTAOORES OW/SM Com ele 
voed poderd selecionar qual micro se comunicard com sua impressora. 

- Dispensa a retirada de cabos de um micro para outro. 

- Informa qual micro esta enviando dados para a im- 
pressora. 

■ft— . Proporciona um aumento no tamanho dos cabos. 



OLIVETTI I 
PRAXIS 20 P I 

MICRO 



FACIT * DW 
8000 | 8000 

A 

MICRO 

OU MAINFRAME 



CJWl 



Rua Antonio Comparato, 148 Sdo Paulo - SP 
CEP 04605 TeL: (01 1)530-1040/530-4402 
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JOYSTICK, DO SIMPLES AO SOFISTICADO 



O Quick Shot, para micros com- 
pativeis com o IBM /PC. 

rto no momento de comprar um 
joystick deste fabricante dev era 
ser prestar bastante atenpffo ao ti- 
po de equipamento para o qua! 
ele 6 destinado. Normalmente, 
eles sSo diferenciados pelas cores 
e peto conector, mas o melhor 
meano e observar bem as instru- 
Sdes na embalagem. Existem mo- 
delos para todos os equipamentos 
fabricados pela empresa. 

• Joystick anakigieo Prologica - 
construi'do especiabnente para o 
micro CP 400, o joystick da 
Prologica i um dos mais peculia- 
res modebs do nosso mercado. 
£ um produto professional, com 
bom acabamento, porem seu de- 
sign o torna de difi'cil empunha- 
dura, e o posicbnamento dos bo- 
tdes de disparo dificulta a sua 
operapao, assbn como a falta de 
centralizapao automitica na ala- 
vanca de movbnento, quc obriga 
o usua'rio a um pertodo de adap- 
tapao para poder usa-lo com ha- 
bilidade. 

Apesar das defbiencias de ma- 
nejo, cste joystick tern uma boa 
sensibilidade e resist one a, poden- 
do ser usado sem diferenpas com 
ambas as maos. Serve para a mab- 
ria dos compati'veis com o TRS- 
Cotor. 

• Joystick JS 1 (Expert) - este 
joystick 6 um modeto especi'fico 
para a linha MSX, e seu design 
acompanha o estito arrojado do 
Expert. Visuabnente causa um 
grande efeito e seu uso comprova 
sua aparencia. 

Possui grande sensfeilidade nos 
comandos e demonstrou ser bas- 
tante resistente ao uso conti'nuo. 
Talvez seu dnico defeito seja nas 
ventosas de fixapdo que s6 aderem 
bem as superficies bastante lisas, 
o que compromete um pouco seu 
desempenho, pois 6 um modeto 
muito difi'cil de se manter nas 



Machine Gun, para o Apple e 
compatfveis. 

maos. Os botOes de disparo sao 
de funebnamento independente, 
e o botao infer br 6 de difi'cil 
acesso para os canhotos, mas 
isso nao chega a ser um problema 
grave, uma vez que a mabria dos 
programas utiliza os dois botoes 
para a mesma funpao. 

Este tipo de joystbk serve 
apenas para os micros da linha 
MSX, mas podem ser usados pe- 
tos compati'veis com o padrao 
Atari. Neste caso, »mente a tec la 
de disparo inferbr podera' ser 
actonada. 

• Joystick HB 100 (Hotbit) - 
este tamb£m e um modeto para a 
linha MSX, com a diferenpa de 
acompanhar o design do Hotbit. 
Sua performance de uso e resis- 
tencia nao deixa nada a dever 
para o outro modeto, o que leva 
a conclusao de que esta linha de 
micros esta bem servida por dois 
joystbks de boa qualidade. 

O posbbnamento do botfo 
inferbr de disparo permite sua 
utilizapffo com as duas maos, e as 
suas ventosas aderem com maisfa- 
cilidade em superficies variadas. 
Serve aos mesmos equipamentos 
que o modeto anterbr. 

Obs.: Aos hobbystas e curbsos 
que gostam de mexer nos seus equi- 
pamentos, uma sugestffo: os dois 
modetos de joystbks para o MSX 
podem ser increment ados com a 
instala^ao de uma chave-seletora 
para trocar a posifJo dos botdes 
de disparo; com isso se conseguira 
um melhor resultado em alguns 
jogos, alem de torna-los ainda 
mais compati'veis com os micros 
que usam o padrao Atari de joys- 
tbk. Esta sugestao vale tambem 
para os fabricates que poderiam 
dotar seus equipamentos com este 
maceteja' na fabrbafio. 

• Joystick Greika para Apple - 
o joystbk da Greika j a' foi aivo da 



NHnMtyCA (vZ AOMNtSTRACAQ 



Const ituir-se numa ferramenta de apoio ao trabalho 
do administrador. Este 6 o objetivo b^sico de 
INFORMATICA & ADMINISTRAgAO. Para 
alcanp^-lo, a revista procura mostrar a contribuipSo que 
a inform^tica pode trazer a racionalizap5o do 
processo administrative das organizapdes, orientando 
seus dirigentes sobre como melhor utilizar essa 
poderosa tecnologia. 

Isto se traduz, na pritica, pela publicap^o de artigos 
tecmcos e reportagens detalhadas sobre a utilizapao 
dos recursos disponi'veis, problemas de custos, 
treinamento, suporte e assessor ia, resenhas de produtos 
e servipos, tendencias e notici^rio sobre os principals 
acontecimentos do setor no Brasil e no mundo. 

Tudo numa linguagem simples e acessfvel, sem excessos 
de jargdio tecnico. 

Leia e assine INFORMATICA & 

ADMINISTRAQAo, a revista que n£o pode faltar na 
estante do administrador atualizado. 
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analise citada no im'cio deste tex- 
to, mas nao custa repetr sua per- 
formance. Como jrf foi dito, este 
joystick permite uma boa respos- 
ta aos comandos e apesar do aca- 
bamento pouco profissional, foi 
aprovado nos jogos em que fun- 
ciona, isto porque nao serve para 
a maioria dos jogos para a linha 
Apple, devido a sua construfao 
hibrida que apenas Simula urn cir- 
cuito analog ico. 

£ lamenta'vel que, neste peri'o- 
do de quase um ano, o produto 
nJo tenha sofrido nenhuma me- 
Ihore, o que demonstra a estagna- 
9 ?o dos pequenos fabricantes 
frente a um mercado em constan- 
te evohitao. O joystick mostra- 
do na foto serve apenas para os 
micros da linha Apple, mas a • Joystick analogico para Apple 90X - os usua'rios do TK90X de- 

Greika fabrica outros modelos se- - ainda rtfo 6 possive! aos usua- vem estar cansados de ouvir falar 

melhantes para video-games e ou- rios de Apple encontrar no mer- na interface Kempston e muitos 

tras linhasde equipamentos. cado nacional um bom joystick nfo tern nem ideia do que seja 

• Joystick Ptancontro! para Ap- analogico. O que se ve, ao produ- este periferico. 

pie - este modelo tern um funcio- tos de procedencia desconhecida A interface Kempston 6 um 

namento semelhante ao do joys- que surgem em algumas lojas e circuito que, ligado aos micros da 

tick anterior, com as mesnas de- anuncios de jornal. Tais produtos linha ZX Spectrum, permite que 

ficiencias, apenas seu acabamento tern um pesskno acabamcnto e a eles seja conectado um joystick 

e bastante superior com uma apa- seu funcionamento e muito com- padrao Atari. A razao da cxisten- 

renca mais profissional e nenhum prometedor. cia desta interface 6 principal- 

sinal de adaptafdes. Possui boa Devido a esta deficiency, fa mente pek) fato de que os micros 
residence e sensibilidade, com uma pesquisa sobre os produtos ZX Spectrum originais nao pos- 

ventosas de fixa?io e cabo anato- importados, e o rcsultado da mes- suem conexdespara joysticks, 

mico. Seu uso sera dificil aos ma esta no box “Joysticks impor- No Brasil, este periferico co- 

canhotos devido a posi^ao do tados”, apresentado nesta mat£- me^a a ser fabricado e acrescenta 

disparador inferior. Serve apenas ria. O que falta aos usuarios bra- ao TK90X algumas vantagens in- 
para o uso em alguns programas sileiros, sobra no exterior. teressantes, ou seja, permite que 

da linha Apple. • Interface Kempston para TK sejam usados simuhaneamente 




dois joysticks, o que em certos 
jogos e muito desejavel. Acrescen- 
ta tamb£m um botio reset, que 
vem incorporado a interface, aca- 
bando com o liga-desliga da 
fonte, e possui ainda um led in- 
dicador. 

O fabricante da primeira 
Kempston brasileira 6 a firma 
Arcade, dirigida por Paulo Rober- 
to V. Pereira, que ja' e conhecido 
dos usuarios de ZX81 , desde que 
criou uma placa de redefini^io 
para micros desta linha. No mo- 
rn ento, a Arcade atendc apenas a 
pedidospek) correio. 

CONCLUSAO 

Os cxemplosdescritos sao ape- 
nas uma rcpresenta^Jo dos joys- 
ticks existentes em nosso merca- 
do. Nao sao os unicos, pois existe 
uma grande variedade disponivel 
e muitos nao foram citados ape- 
nas devido a dificuldadc em en- 
contra-Ios a tempo para testes e 
avalatjao. Lembramos aos fabri- 
cantes e distribuidores que MI- 
CRO SISTEMAS estara sempre 
aberta a divulga^So de seus pro- 
dutos, em ana'lises que inteTessam 
tanto ao usuario quanto aos que 
fabricam os equipamentos ligados 
ao mercado de informitica, sejam 
eles de hardware ou software. 

Analise feita por Divino C. R. ■ 
Leitao. & 



A MICROTEC SABE 
QUEM MAIS VAI VENDER 



0 MAT 286. 



MAT 286 - MICROTEC 

Compadvel com IBM-PCAT, 
microprocessador 80286, frequ£ncia 
de 6Mhz chaveado no teclado, 

7 canais DMA, 16 niveis de 
interrupt^), 1024KB de membria 
RAM, podendo ser expandido para 
at£ 16384KB, discos rigidos de 20 a 
140 MB, fha back-up de 10 e 20MB, 
fonte de alimenta^ao de 200W e 
sistema operacional DOS 286 
(compadvel PCDOS 3.0). 









tumm 















Depois do sucesso do PC 2001 e do XT 2002 
— os mais vendidos no Brasil — a Micnxec lan<^ o 
MAT 286. Um micro que vai continuar a esteira de 
sucessos da MICROTEC. 

Como sempre, a MICRO’S vai baler novos recordes 
de venda deste produto. 

Por ser a maior revenda do Brasil, a MICRO’S 
oferece o melhor atendimento, a melhor assessoria, 
o melhor suporte e um contrato exclusive de 
garantia de assistencia t£cnica. 

Nao 6 ^ toa que a MICRO’S # vendeu mais de 
2.000 micros no Brasil. 








Rio - (021) 221-3654 - Telex: (021)36207 NINF BR. S Paulo - (Oil) 813-9140. Brasilia - (061) 2^0888 



Informatica e Tecnologia Ltda. 




apple apple apple appl 



Aventura espacial 

Eduardo Saito 



O objetivo deste jogo, desenvotvido para ocorrer se os mTsseis teleguodos do inimigo com o comando RUN. Ferto isso, o micro 

micros compatfveis com o Apple, € destruir oatingirem. pergunta se voce deseja som, o que deve ser 

o centro de uma nave inimiga e, para is90, Apos destruir tres naves inimigas, sera respondido com Sou N. Em seguida.o miao 

sera necesslrio eliminar as barreiras que o necessario dcsviar dos mete6ros que irlo so licit a o m'vel de dificuldade (entre 0 e S), 

protcgem. em sua dire^ao. Se conseguir c sea par desses observe que quanto menor este valor mais 

Para executar a sua missdo, voce tera uma ataques, a aventura continuara com outros facil sera o jogo. 

nave equipada com um canhao capaz de de- adversarios em um nfvel de dificuldad; cres- Respondidas estas perguntas, o jogo come- 

sintegrar uma pequena parte da nave inimi- cente. ?a e assim voce devera usar um dos comandos 

ga e, conseqiientemente, abrir uma brecha Os comandos da nave sJo: A * para cima, para mover a nave que aparecera' na parte 

que leve a destrui^ao do seu centro de for^a Z * para baixo, J - para a dire it a, G - para inferior da tela. Agora, basta destruir os ini- 

(um ponto que se lo comove da esquerda para a esquerda e H * para lan^ar um mi'ssil, al£m migos. 

a d neita no topo da tela). Ap6s isto, voce disso existe a tecla ESC que proporciona Boa sorte! 

viajard ate um outro canto do universo para umapausa. 

poder continuar a sua aventura contra outras 

naves adversrfras. COMO USAR O PROGRAMA Com apenas 12 anos, Eduardo Saito programa 

Cuidado para n£o colidir com o inimigo no* micros Apple II e ZX Spectrum onde 

pois sera' o fim da sua aventura. O mesmo i xi Ap6s a digita^ao do programa, execute-o tamb&n desenvoh/e jogos em BASIC. 
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440 


VTAB 23: PRINT -PONT OS - 'IP 


890 


HLIN 26,22 AT 7 


20 


REM - - 




O 


900 


HLIN 12,26 AT 8 


30 


REM - AVENTURA 


450 


IF IN < 128 THEN 555 


910 


HLIN 14,24 AT 9 


40 


REM - '•"ESPACIAL - 


460 


COLOR- 0: PLOT X, V: PLOT X ♦ 


920 


HLIN 15,23 AT 10 


50 


REM - ........ . 




l , v - i: plot x - l , v - l 


930 


HLIN 17,21 AT 11 


60 




4 70 


POKE - 16368.0 


948 


VLIN 11,13 AT 14: VLIN 11,13 


70 


REM 


4B0 


IF IN - 199 THEN X - X - 1 




AT 24 


00 


REM 


490 


IF IN - 202 THEN X - X ♦ 1 


958 


PLOT 19.12 


<70 


REM 


500 


IF IN - 193 THEN v - V - 1 


960 


HLIN 9,29 AT 25 


100 


GOSUB 2120 


510 


IF IN - 218 THEN V - V ♦ 1 


970 


RETURN 


1 10 


TEXT : HOME : SPEED- 180: VTAb 


520 


COLOR- 12 


900 


VLIN 3, 13 AT 14 




a: FOR A - 0 TO 39: PRINT chr» 


530 


IF SCRN ( X , V ) < > 0 OR SCRN ( 


990 


VLIN 4. 12 AT 15 




1255) »: NEXT : PRINT : GOSUB 




X.V - 1) < > 0 OR SCRN < X ♦ 


1000 


VLIN 5, 1 1 AT 16 




2290 




l.V - 1> < > 0 OR SCRN ( X - 


1010 


VLIN 6,10 AT 17 


120 


TEXT 




l.V - 1) < >0 THEN 2160 


1020 


VLIN 7.9 AT 18 


130 


FOR A - 1 TO 240 STEP 30: FOR 


540 


plot x,v: plot x ♦ i,v - i: plot 


1030 


VLIN 8,13 AT 19 




B - A TO 240 STEP 30: POKE 7 




X - l.V - 1 


1040 


VLIN 7,9 AT 20 




68, l: PORE 769, 6: CALL 770: NEXT 


550 


IF IN - 155 THEN GOSUB 610 


1058 


VLIN 6, 10 AT 21 




b: next a 


555 


IF SCRN ( X.V - 1» < >0 THEN 


1060 


VLIN 5,11 AT 22 


135 


VTAB 21 : PRINT TAB< 12)"POR 




2160 


1070 


VLIN 4,12 AT 23 




EDUARDO SAITO": FOR A - 1 TO 


560 


COLOR- 0t PLOT TV.T 


1080 


VLIN 3, 13 AT 24 




1 1 : PRINT : NEXT : POKE 34.4 


570 


IF IN • 200 AND NT - 0 THEN 


1090 


HLIN 2,37 AT 25: HLIN 5.34 AT 




: FOE 768,2: PO E 769,99: CALL 




ht - i:o - v:uiw - X 




26 




770: FOR A « 1 TO 999: NEXT 


580 


IF NT - 1 THEN GOTO 670 


1100 


RETURN 




A: FOR A • 1 TO ll: PRINT : NEXT 


590 


NEXT T 


1110 


HLIN 12, 16 AT 7 






600 


GOTO 330 


1 120 


HLIN 22,26 AT J 


140 


VTAB 21 : PRINT TAB! 1 1 ) "DES 


610 


HOME : PRINT : FLASH : HTAB 


1130 


HLIN 17,21 AT 8 




EJA SOM 7 (S/N) -: FOR A • 1 




15: PRINT »— PAUSA — -: NORMAL 


1140 






TO It: PRINT : NEXT 






1150 


VLIN 8, 13 AT 26 


150 


VTAB 12: HTAB 30: GET A*: IF 


620 


IN - PEEK ( - 16384) 


1160 






A* - "N" THEN POKE 770,96: GOTO 


630 


IF IN < > 155 THEN 620 




7 AT 13 




170 


640 


POKE - 16368.0 


1170 


PLOT 19,13 


160 


IF A* ! > “S" THEN 150 






1 180 


HL IN 2. IB AT 20 


170 


PRINT A»: GOSUB 780 


660 


RETURN 


1190 


HLIN 28,37 AT 20 


180 


VTAB 21 : PRINT TAB( 6) "NIVE 




COLOR- 3 


1200 


HLIN 11,27 AT 21 




L DE DIFICULDADE (0-5) - * 




0-0-1 


1218 


HLIN 2,37 AT 22 


190 


FOR A - 1 TO 11 : PRINT : NEXT 




IF 0 - 2 THEN WT - 0: GOTO 3 


1220 


HLIN 2,10 AT 23: HLIN 28.37 








30 




AT 23 


200 


VTAB 12: HTAB 35: GET MK*:MA 


700 


PLOT WW.Q 


1230 


HLIN 11,27 AT 24: HLIN 2,37 




- VAC (M) •) : IF MA < 0 OR 


710 


COLOR- 0 








MA > 5 THEN GOTO 200 


720 


POKE 768.1: POKE 769.1: CALL 


1240 


VLIN 14. 19 AT 10 


210 


PO E 804, MA 




770 


1250 


VLIN 14, 19 AT 20 


220 


PRINT MA: MA • MA . 4:0 • • STR* 


730 


IF SCRN ( MW, 0 - 1) - 9 THEN 


1260 


RETURN 




(MA): GOSUB 780 




POKE 768, I : POKE 769,220: CALL 


1270 


FOR D - IS TO 24 STEP 3S HLIN 


230 


M) • - ", - . M) •: MA - VAL <MK 




770: GOSUB 700: PRINT CHR* 








• ) 




<7>:WT - 0: GOSUB 1500 


1280 


HLIN 10,29 AT 30: HLIN 2.10 


240 


N I - 1 :NE - 1 


740 


IF SCRN! WW,0 - 1) < >0 THEN 




AT 28: HLIN 29,37 AT 28 


250 


SPEED- 255 




PLOT WM.O - I: PLOT ww.o: POKE 


1290 


HLIN 16,22 AT 9: HLIN 13,25 


260 


HOME 




768, i: POKE 769,90: CALL 770 






270 


GR 




: COLOR- 12:po - po ♦ 10:mt - 


1300 


RETURN 


280 


GOSUB 810 




0: GOTO 330 


1310 


HOME 


290 


GOSUb 790 


750 


PLOT WU.O 


1340 


GOSUB 780: GOSUB 780 


300 


X - 19: V - 35 


760 


COLOR- 3 






310 


XO - 17 


770 


GOTO 590 


1360 




320 


ND - 0 


780 


POKE 768.1: POKE 769,50: CALL 


1370 




330 


TM - 19 




770: RETURN 


1380 


POKE - 16368,0 


340 


FOR T - 13 TO 37 


790 


COLOR- 8 


1385 




350 


IF X > TV THEN TM - TM ♦ MA 


000 


HL IN 0,39 AT 0: ML IN 0,39 AT 


1390 




360 


IF X < TV THEN TM - TM - MA 




39: VLIN 0,39 AT 0: VLIN 0,3 




011 NEXT 


370 


TV - INT (TM): IF SCRN ( TV, 




9 AT 39: HLIN 1 , 38 AT 1: HL I N 


1400 






T) < >0 THEN COLOR- 0: PLOT 




1.38 AT 38: VLIN 1,38 AT 1: VLIN 


1410 


HOME : PRINT 




TV.T: GOSUB 780: GOTO 330 




1,38 AT 38: RETURN 


1420 


PRINT -F-LACAR - "IPO, “NIVEL 


380 


COLOR- 10: PLOT TV.T 




GOSUB 1730 






390 


IF TV - 78 OR TV - 1 THEN GOTO 


820 


IF NE > 4 THEN NE - 1 


1430 


PRINT : PRINT -COMANDANTE, 




330 


830 


ON NE GOTO 840,980.1110.1270 






400 


COLOR- 0: PLOT XO, 7 










410 


XO - XO ♦ i: IF XO > 21 THEN 


840 


HLIN 17,21 AT 3 


1448 


HOME : COLOR- 15: GOSUB 830 




xo - 17: color- 0 : plot 21.7 


850 


HLIN 15,23 AT 4 










860 


HLIN 14,24 AT 5 


1450 




420 


COLOR- 9: PLOT XO. 7 


870 


HLIN 12,26 AT 6 






430 


IN - PEEK « - 16384) 


880 


HLIN 12, 16 AT 7 




": PRINT “PRESS I ONE tCRJ PAR 
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Aventura espacial 



Softnew informcatica 



TUDO PARA 0 COLOR E MSX!!! 

Tradicional em softwares para o CP-400 e MSX. 
imensa variedade de softwares, 1.800 programas para o CP-400 e 
200 programas para o MSX. 

MSX 

Jogos — Cz$ 15,00 

• Aplicati vos e Utilitarios Cz$ 80,00 

• Copiadores Cz$ 300,00 



1 PROMOf AO POR TEMPO LIMITADO!!! 

Nosso sistema de trabalho: 

Cobramos uma taxa be CzS 25.00 correspondente a flta cassete. sendo que nessa ftta pobem ser 
coiocabos aproxlmadamente 50 programas Caso beseje que $e)am dlvldldos os programas em varlas 
fltas. nos Informe o numero be fltas 
OBS Encomenda minima CzS 200.00 

oespachamos para qualquer lugar bo Brasil (Via CEOEX) A flta e/ou disco sera entregue em sua resioencia 
Caso voce besele que seus programas sejam coiocabos em disketes. o valor bo mesmo e be CzS 45.00. 

sollcite nosso catalogo hoje mesmo, e quando recebe lo envie seu pedido e a quantia atraves de 
cheque ou dinheiro correspondente ao pedido. 

Atendemos aos sabados e dorningosm 



SOFTNEW 

Rua Miguel Maldonado 173 • Bairro 
Jardim sdo Bento - Sdo Paulo - SP • 
Tel. (Oil) 266-2902/266-5307/ 
940-2500 - R-25 



CP-400 

JOCOS — CzS 9,50 

Aplicativos e Utilitarios Cz$ 65,00 

. cocomax l ell CzS 140,00 • mlnimax CzS 140,00 

• vip-librarv CzS 280,00 • deskmate CzS 280,00 

• vizldraw CzS 140.00 • pen-pal CzS 280,00 

. 0S9-sist. operacional CzS 449,00 • copiadores CzS 250,00 

• livro 500 peeks e pokes 

e exec s — traduzido CzS 99,00 

• adventures emportugues CzS 9,50 • joystcks CzS 180,00 





A IN1CIAR A BATALHA. "s: GET 




AVE. - 


2120 


RESTORE 






1780 


GUSUB 780: GOSUB 780 






1460 


MA - < PEEK (804 > ♦ NI> / 5 


1790 


FOR A - 1 TO 100 STEP 10: POKE 






1470 


X - 19: V - 33 




768.1: POKE 769. A: CALL 770: 






14B0 


HOME 




NEXT 


2130 


DATA 172,1,3,174,1.3,169,4 






1BU0 


FOR P - 1 TO 1000 : V - FRE 






>500 


POP A - 1 TO 12: COLOR- 0 : GOSUB 




(0) : NEXT 




08,253, 136,208,239,206.0,3.2 




830: COLOR- C: POKE 768. 1 : POKE 


1810 


HOME 








769, A • 20: CALL 770: GOSUB 


1820 


GOSUB 790 


2160 


PLOT x,v: PLOT X ♦ l,V - It 




830: NEXT 


1830 


X - 19: y - 35 






1310 


POKE 768,0: POKE 769.3: CALL 


1840 


COLOR- 12 


2170 


HOME J PRINT : PRINT TAB! 




770: COLOP- 0: GOSUB 830: FOR 


1050 


GOSUB 2110 




18) -CRASH": FOR X - 60 TO 80 




A - 200 TO 220: POKE 768.1: POKE 


1060 


T OR P - 1 TO NI ♦ 5 




STEP 2: POKE 768, 1 : POKE 76 




769. a: CALL 770: NEXT A 


1870 


PO - PO ♦ 50 




9.X: FOR V - 1 TO 50: NEXT V 


1320 


PRINT TAB! 10) "PARABENS, C 


1800 


N2 - INT ( RND (1) • 31) » 




: CALL 770: NEXT X 




UMANDANTE •" 




4: N3 - RND <1> • 1 * 1 :si - 


2180 


FOR P - 1 TO 400:. POKE - 1 


13-0 


PRINT TAB ( 2) "ESTAMOS VIA.) 




INT ( RND (1) • 2) 




6368,0: NEXT 




ANDO PARA UUTRA GALAX IA. . . ” 


1890 


FOR N - 2 TO 37 STEP 4 


2190 


POKE 770, 172 


1540 


KOR p - 1 TO 230: X - FRE ( 


1900 


IN - PEEK < - 16384) 


2200 


TEXT : HOME 




0)! NEXT 


1910 


POKE - I 6368,0 


2210 


GOSUB 2290 


1330 


GOSUB 1610 


1920 


IF IN < 128 GOTO 2000 


2220 


PRINT : PRINT -NIVEL - “ t N 


1360 


HOME 


1930 


COLOR- 0 




I: PRINT "PLACAR - -IPO: PRINT 


1370 


IF Nl - 3 THEN GOSUB 1750 


1940 


IF IN - 199 THEN GOSUB 211 






1380 


GOSUB 780: GOSUB 780: PRINT 




0 :x ■ x - i 


2230 


FOR A - 1 TO 1000 : NEXT 




CMR» <7) 


1950 


IF IN - 155 THEN GOSUB 610 


2240 


PRINT : PRINT -TECLE "II FLASH 


1390 


HOME 








I PRINT -CCRJ-i: NORMAL : PRINT 


1600 


GOTO 1310 


I960 


IF IN • 202 1 HEN GOSUB 211 




- PARA JDGAR NOVAMENTE. . . "1 : 


1610 


FOR I - I TO 2 




0 : x • x ♦ i 




GET P4 


1620 


IF Nl 7 3 - INT (NI / 3) THEN 


1970 


IF X - 4 THEN X - 34 


2230 


PRINT 




FOR I - 1 TO 1 


1980 


IE X - 35 THEN X - 5 


2260 


IF ASC (P«> - 13 THEN CLEAR 


167*0 


FOR N - 39 TO 0 STEP - 1 


1990 


COLOR- 12: GOSUB 2110 




: GOTO 140 














1630 


POKE 768. 1: POKE 769. N • I: 


2010 


IF SI - 1 THIN N2 — N2 ♦ N3 




A PROXIMA. . PRINT : POKE 








•• GOTO 2030 




768,7: POKE 769.80: CALL 770 




COLOR- W 


2020 


N2 - N2 - N3 




: PRINT TAB! 26) "COMANDANTE 


1670 


GOSUB 1690: NEXT N. I 


2030 


N4 - INT <N2): IF N - 22 THEN 




POKE 768.3: POK E 769, ) 8 


1680 


GOTO 1700 




IF N4 X - 3 AND N4 < X » 




0: CALL 770 


1690 


VL IN 0.39 AT N: VL1N 0.39 AT 




3 THEN COLOR- 0: GOTO 2160 


2280 


END 




39 - N: HL IN 0,39 AT N: HLIN 


2040 


IF SCRNI N2.N) - 8 THEN GOTO 


2290 


PRINT TABi 13) "AVENTURA”: PRINT 




0,39 AT 39 - N: RETURN 








TAB ( 13) ESPACIAL-: PRINT 


1700 


COLOR- 0: FOR N ■ 0 TO 20 


2050 


COLOR- 9: PLOT N2.N 




TAB 1 |9)-kkk»»»-»- : for p . 






2060 


POKE 768.1: POKE 769.20: CALL 




0 TO 39: PRINT CHF» (233) i: 


1720 


GOSUB 1690: NEXT N: RETURN 




770 




NEXT : POKE 34.4: RETURN 






2070 


COLOR- 0: PLOT N2.N 


2300 


POK E 800. PO / 100: POK E 801 




C - INT ( RND (1) • 13) ♦ 1 


2080 


NEXT N.P 




.NI : POK E 802. ne: CLEAR :PO - 




: color- c: if c - 12 or c - 


2090 


HOME : PRINT : PRINT TAB! 




PEEK (800) • 100INI - PEEK 








8I-0TIMAS MANOBRAS COMANDANT 




(801):NE - PEEK (802): GOTO 


1740 


RETURN 




E.-: FOR A - 235 TO 1 STEP - 




1410 














1760 


PRINT -ATENCAO • ASTEROI DES 












EM NOSSA DIRECAO •• 


2100 


RETURN 








PRINT : PRINT TAB < 2) "PREP 


2110 


PLOT X - 2,19: PLOT X ♦ 2, 1 








ARE-SE PARA DEFENDER NOSSA N 




9: HLIN X - 1,X ♦ 1 AT 20: RETURN 












msx msx msx m 



Othello 

Nelson Hi sash i Tamura 




Dcsenvolvido para os micros da linha 
MSX, estc jogo c uma versSo do progra- 
ms “Flip: capture o adversario”, publi- 
cado na edi^ffo de MICRO SISTEMAS 
(n ? 24, pagina 66). 

0 jogo devera ser disputado por duas 
pessoas que tcrSo como objetivo criar 
armadilhas c dcfesas no decorrer da par- 
tida, com o objetivo de capturar as pe- 
qas do adversario, de forma a possuir 
um numero de pe^as superior ao do 
oponente no termino da disputa. 

Para capturar as pe^as do adversario, 
e necessario que cada jogador coloque 
as suas pe^as de forma que as outras fi- 
quem limitadas por duas pe^as suas. Es- 
ta captura pode ser feita na horizontal, 
vertical ou diagonal, sendo possivel com 
apenas uma pe$a fazer capturas em va- 
rias dire 90 es. 

Ha uma regra, contudo, que devera 
ser respeitada: nSo poderSo exist ir pe- 
<;as suas ou cspa<;os vazios entre as pe- 
$as que scrSo capturadas. 

Em cada jogada, o jogador devera 



capturar uma pe?a inimiga, no entanto, 
o lance que colocar uma pe 9 a num local 
em que nSo aprisione uma adversaria 
nSo sera considerado valido, e assim o 



computador sinalizarS no canto inferior 
direito informando que o lance deverS 
ser repetido, desta vez para uma poogSo 
valida. 



10 CLEAR 1000 

20 COLOR IS, 1, I : SCREEN 2,2 
30 OREN-QRR: -AS01 
40 GOSUB 1330 

60 * DESENHO DO QUADRO 

80 LINE(13, 13>-(1B3, 183>, 13, BF 
90 LINE (20, 20) - 1 180, 180) , 1 , BT 
100 PRESET (60, 60) : PRINTS!, "OTHELLO H8X* 
110 PRESET (70, 100) :PR1NT0I,*KMT - RS" 

120 PRESET C70, 140) : PRINT# 1 , ■• 1986 •* 

130 FOR N-l TO 2000: NEXT 

140 LINE (20, 20) - 1 180, 180) ,3, BF 

130 FOR X-20 TO 140 STEP 40 

160 FOR V-20 TO 140 STEP 40 

170 LINE(V,X)-(V*20,X*20> ,2,BF 

180 LINE(V*20,X*20)-(V»40,X«40> ,2,BF 

190 NEXT V,X 

200 PRESET ( 193,3) : PRINT 01,-PLACAR- 

210 LINE ( 193, 13) - <242, 20) ,13, BF 

220 CIRCLE (219, S3) ,23, 14 

230 PAINT (219, 33), 14 

240 LINE (203, 43) — (233, 63) , 1 , BF 

230 CIRCLE (219, 113), 23, 13 

260 PAINT (219, 113) , 13 

270 L I NE ( 203 , 1 03 ) - ( 233 , 1 23 ) , 1 , BE 

280 DIN V<2> :DIH 6(4>:DIN J(2) 

290 p-0:c-i:l-i:v(i>-i:v(2>-2:su>-i:B(2 

>-l:S(3)-13:S(4>-13 

300 1 - 2 : x-4:v-4 : gosub 1330 

310 x-3: y-3:0O8UB 1330 

320 1 - 1 : Y-4: GOSUB 1330 

330 X-4:Y-3: GOSUB 1330 

340 FOR N-l TO 8: READ A*: B»-B6*CMR» ( VAL ( 
-6B"*A«> ) .-NEXT: SPRITE* (0) -B* 

360 * DEFINICAO DOS SPRITES 

370 ■ 



380 DATA 00011000 
390 DATA 00011000 
400 DATA 00011000 
410 DATA 00011000 
420 DATA 11111111 
430 DATA 01111110 
440 DATA 00111100 
430 DATA 00011000 

460 FOR N-l TO 8: READ A*: C*-C**CHR* (VAL ( 
•SB- *a*> ) : next: spr i te* ( i > «c* 

470 DATA 00001000 

480 DATA 00001100 

490 DATA 00001110 

300 DATA I II 11111 

310 DATA 11111111 

320 DATA 00001110 

330 DATA 00001100 

340 DATA 00001000 

330 D*- • 0000000000000000 1 - 

360 FOR N-l TO 16 

370 N*-N**CHR* (VAL ( "IB “♦LEFT* ( D* , 8) ) ) 

380 N4— N**CMR* (VAL ( “6B" ♦RIGHT* < D*. 8) ) ) 
390 NEXT 

600 FOR N— 2 TO 17 
610 SPRITE* (N) -N**H* 

620 NEXT: K— 1 

630 FOR N-22 TO 130 STEP 40 
640 FOR N— 23 TO 130 STEP 40 
630 K-K*l:PUTBPR!TE K, (N,H),2,K 
660 NEXT: NEXT 
670 GOSUB 710: QOTO 840 

680 • 

690 • PLACAR DO JOGO 



710 PA-0:PB-0 

720 FOR J-l TO 8: FOR M-l TO 8 
730 PT-POINT(10*(20*J),10*(20*H)> 
740 IF PT-1 THEN PA-PA* 1 
730 IF PT-13 T)EN PB-PB*1 



760 NEXT H,J 

770 LINE (210, 30) - (230,60) , 1 , BF: PRESET < 20 
3,31) SPRINT *1 , PA 

780 LINE (210, 110) -(230. 120), 1,BF: PRESET! 

203, 111): PR I NT 01, PS 

790 IF PA+PB-64 THEN OOTO 1420 

800 RETURN 

820 ' ROTINA DO JOGO 

830 ' 

840 GOSUB 7I0:D-1:CIRCLE(219. 113) ,30, i:c 
IRCLE (219,35) ,30, 13 

830 I— 1 S ic-l: GOSUB 920: IF D-0 THEN GOTO 

860 

860 GOSUB 710: D-l: CIRCLE (219, S3) ,30, 1 SCI 
RCLE (219,113), 30, 13 

870 1-2: IC-13: GOSUB 920: IF D-0 THEN GOTO 

B40 

880 GOTO 840 

900 • INSERCAO DE PECAS 

910 ' 

920 PUT SPRITE I , (3, 4* (20«L) ) , 6, 1 
930 A— ST ICK (0) : FOR N-l TO 1 00: NEXT 
940 IF A-3 THEN C-C«1:IF 08 THEN C-l 
930 IF A— 7 THEN C-C-1SIF C< 1 THEN C-8 
960 I*-!NKEV* 

970 IF I*-“D“ THEN D-0: RETURN 

980 IF I*-CHR«(32> THEN PUTSPRITE 0, (6*( 

20*0, 3). 6,0: GOTO 1000 

990 PUTSPRITE 0, (6* (20*0 , 3) , 13, 0: GOTO 9 

30 

1000 A-ST!CK(0> :FOR N-l TO 100:NEXT 
1010 IF A-3 THEN L-L»!:IF L>8 THEN L-l 
1020 IF A— 1 THEN L-L-l:IF L< 1 THEN L-8 
1030 IF IMCEY4-CHR* ( 32) THEN GOTO 1030 
1040 PUTSPRITE 1, (3, 4* (20*0 ), IS, l:GOTO 
1000 

1030 X-C:v-L:PT-POINT(10*(20*C),10*(20*L 



40 



MICRO SISTEMAS, novembro/86 





COMO JOGAR 



1060 IF PT-1 OR PT-13 THEN GOTO 920 
1070 QOSUB 1330 



1480 PRESET (78, 102) 1PRINT01, -BRANCO- 
1490 GOTO 1490 



1090 • 

1100 ' CAPTURA DAS PECAS 

1110 * 

1120 FOR D- 1 TO 8 

1130 DX- ( D-4 ) ♦ ( D— 6 ) ♦ < D-3 ) - < D— 8 )-(D— 1)-(D 
-2) 1 DY- (D-2) ♦ ( D-3) ♦ (D-4 ) - ID-6) - ( D-7J - ( D- 
8) 

1140 X-ClY-L 
1130 X-X-DY: Y-Y-DX 

1160 IF X<l OR X >8 OR V< I OR V>8 THEN GO 
TO 1240 

1 170 PT-POINT < 10* (20»X> , 10* (20*Y) > 

1180 IF PT-2 OR PT-3 THEN GOTO 1240 
1190 IF PTOJC THEN GOTO 1130 
1200 X-X-DVS V-V-DX 

1210 IF X-C AND Y-L THEN GOTO 1240 
1220 P-1 

1230 QOSUB 13301 GOTO 1200 
1240 NEXT 

1230 IF P-1 THEN RETURN 

1260 • 

1270 * SINALI7ADOR DE ERRO 

1280 ' 

1290 FOR NN-1 TO 3:PLAY“E“, “G", "B“ 

1300 LINE (193, 130) -(243, 183) , 6, BF: L INE ( 1 

93, 130) - (243, 183) , 1 1LINE ( 193, 183) -(243,1 

30>,i:FOR m-i TO 300 :next 

1310 LINE < 193, 130) - (243, 163) ,1, BF : FOR HR 

-1 TO 230:NEXT:NEXT 

1320 CS-POINT(3*(20*C>,3*(20»L)> 

1330 CIRCLE ( 10» ( 20*0 ,10* (20*0 ) , A, CS: PA 

1NT ( 10* (20»C) , 1 0* ( 20—L ) ) ,CS 

1340 GOTO 920 

1330 IF 1-2 THEN 1-3 

1360 CIRCLE ( 10*(20*X>, 10. (20«Y) ) ,3,S< I) 5 
BEEP: PAINT ( 10* (20*X ) , 10*(20«Y) » ,S(I) 

1370 IF 1-3 THEN 1-2 
1380 RETURN 

1390 ' 

1400 • FINAL DO JOGO 

1410 * 

1420 PUT SPRITE 0,(0,208) 

1430 LINE (60, 80) — ( 1 40, 120) ,13, BF 

1440 LINE (63,83)— (133, 113),1,BF 

1430 IF PA-PB THEN PRESET (72,96) SPRINT • 

l, - enpatou-:goto 1490 

1460 PRESET (78, 90) : PRINT01 , "VENCEU* 

1470 IF PA>PB THEN PRESET 181 , 102) (PRINT# 
1 , -PRETO- : GOTO 1490 



1310 ' APRESENTACAO 

1320 ’ 

1330 LINES 10, 3) - (243, IBS) , 13, BF 

1340 LINEdS, 10)-(240, 180) , 1,BF 

1330 LINE ( 17, 12) — (238, 1 78) , IS, B 

1360 PRESET (30, 33) :PRINT01 , -NMT - NS APR 

esentah: - 

1370 PRESET (83, 1 33) : PRINT01 , "Vtnao R8X” 

1380 O0--R13F3D10L10U10L3D10L10U10E3- 

1390 T0— -R23D3LBD1 0L9U10L8U3- 

1600 L6--R10D13L10U13- 

1610 E4--R23D3L13D10L10U13- 

1620 DRAN-C6BN33,63-^O0*-B»160.63-*T**-BR 

90 , 63 “ -L0- - BN 1 03 . 63- *L6* - BR 1 20, 63* “ B 

R130,63-*L«*-BR173,63--L**-BR203.63-»O« 

1630 FOR N-33 TO 93 STEP 20 

1640 PAINT (N, 73) ,6: NEXT 

1630 FOR N— 107 TO 220 STEP 23 

1660 PAINT (N, 67) ,61 NEXT 

1670 H0--R10D3R3U3R10D13LI0U3L3D3L10U13- 

1680 E4--RI0D3R10D3L 10D3L 10U13" 

1690 DRAN-C12BR30,80-»Lf-Bn43,B0-*L»*-B 
H68 . 80R9D 1 3L 9U l 3BR90 , 80 " *H« ♦ - BM 1 20 , 80 - ♦£ 
• *-BR130,80-*L«*-Bm73,80--M.0»"Bn200,80- 
♦L0* ' BR2 1 3 , 80 " «*.• 

1700 FOR N-32 TO 120 STEP 20 
1710 PAINT(N,BS),I2:NEXT 
1720 FOR N— 126 TO 210 STEP 23 
1730 PAINT (N, 83), 12: NEXT: PAINT (220, 83) , 1 
2 

1740 O0--R10D10R3U10R10D10G3L13M3U10- 

1730 E0--RI0D10R13D3L23U13- 

1760 L0--R10D10R10D3L20U13- 

1770 DRAW-C4BR30,93-*O«»*BR68,93R9D13L9U 

13BR90, 93R10D1SL 1 0U13BR 1 03, 93R 10D13L 10UI 

3BR120, 93 BR 130, 93- ♦L4--BR1 73,93 -*L 

•♦-BR200,93“»O* 

1780 FOR N-33 TO 113 STEP 20 
1790 PAINT (N, 100) , 4: NEXT 
1800 FOR N— 140 TO 220 STEP 23 
1810 PAINT (N, 107) , 4: NEXT 
1820 FOR N— 1 TO 3000: NEXT 
1830 LINE (0,0) -(233, 190), 1,BF 
1840 RETURN 



Othelo 



Para jogar, voce devera usar as te- 
clas de cursor e barra de espa^o, sendo 
que para colocar uma pe9a no tabuleiro, 
posicione primeiro a seta branca vertical 
na posi9So desejada atraves das teclas 
< e > , pressionando em seguida a 
barra de espa90. Feito isto, execute o 
mesmo procedimento com a seta hori- 
zontal atraves das teclas A e V 

Quando urn jogador estiver impossi- 
bilitado de jogar, ou seja, se nSo puder 
capturar uma pe<?a adversaria, ele devera 
passar a vez para o outro, pressionando 
a tecla D. 

Se voce quiser jogar novamcnte, pres- 
sione as teclas CONTROL + STOP, se- 
guido do comando RUN e ENTER. 

£ 



Nelson Hisashi Tamura possui o cur so de T6c- 
nico em Eletrdnica. Atuaknente ele trabalha 
com enrolamentos de motores et&tricos e 
montagens de alarmes eletrdnicos sob enco- 
menda. desenvo Nendo seus programas no seu 
CP 400. 



MSXSOFTWARE 



CIBERTRON 



Conheca as novidades CIBERTRON para MSX em fita e 
diskette: s3o sete titulos incluindo aplicacOes dom6s- 
ticas, prof issionais e entretenimento. Os programas 
CIBERTRON sSo totalmente em portuguds e sao acompanha- 
dos por manuals de operaqflo detalhados e completos. 
Venha ver em primeira mflo porque CIBERTRON 6 muito mais 
software. 



ASSEMBLY 
& DES ASSEMBLY 

Assembly - Totalmente relocAvel. editor Incluso 
macros, assemblagem condlclonel, extrema ra- 
plde/ de compllacSo. Desassembly - ExecucAo 
pesso a pas so, multlplos pontos de lntemjpc*o 
cdpla Intel Igente. Oisponivel em fita e 
diskette. 

BANCO DE DADOS 
Sistema prof I ss Iona I de arquivo e recuperacflo 
de informacfles encontrando aplicacdes no ar- 
quivamento de flchas de cllentes, InformacOes 
blbllogrftflcas. mala dlreta e out r os. Dlsponivel 
em fita K-7. 



CONTROLE DE ESTOQUE 
Permite processar de mane Ira eflclente uma 
quantidade Indeterminada de reglstros llmltados 
apenas pela capacldade do diskette. Inclul 
cbdlgo e nome do produto. fomecedor, unldade. 
quantidade. quantidade minima, preco de compra 
preco de venda e data de validade. Dlsponivel 
em diskette. 

MSX- WORD 

Poderoso processador de textos destlnado ao 
uso domtstlco ou prof I ss Iona I permltlndo o 
armazenamento de at* 480 I Innas. Inclul busca 
de pa lavras movimentacAo de blocos. reformula- 
Cflo de parAgrafos. brocagem. deflnlcflo de 
mar gens, dues pAglnas de auxillo ao usuArlo 
e muito mats. Dlsponivel em fita e diskette. 



PITFALL II. THEZEUS 
3* GALAGA 

Disco contendo trAs emocionantes logos total- 
mente em liguagem de mAquIna. Incrivels Ima- 
gens de alta resolucAo grAfica a cores. Som 
fantAstlco. Somente em diskette. 

SIMULADOR DE VOO 
7 3 7 

Escrlto por urn plloto proflsslonal de Boeing 
737. Simula a pilotagem de urn moderno avIAo 
a |ato. Controle por teclado ou "joystick". 
Dlsponivel em fita K-7. 




Procure SOFTWARE CIBERTRON nos bons magazines em todo o Brasil. NAo encon- 
trando o por grama desejado. escreva-nos - Calxa Postal 17.005 - CEP 02399 
- Sdo Paulo/SP. 







zx81 zx81 zx81 zx8 



Lunar 10 

Paulo Marques Figueira 



Lunar 10 6 uma avcntura espa- para auxiliar na construct) das 
cial no futuro, quando o homem novas colonias cspaciais e, assim, 
ja conquistou o cspaco e esta co- sua missao € preparar o caminho. 
lonizando o universo. Voce sera Veia as instrufdes delalhadas no 
o piloto de uma nave de apoio proprio programa. 




CARACTKRISTK'AS DO os eddigos da listagem 2. Apos 
PROGRAMA salvar o scu trabalho, digit e o pro- 

grama da listagem 1 e salve tudo 
Este programa possui rotinas com o comando direto GOTO 
para acionar o PSG (Processador 72. Tendo terminado o carrega- 
de Som com tres canais), mas. se mento, o programa ficarf aguar- 
voce nao possui um, nao se preo- dando que uma tecla seja pressio- 
cupe pois o programa roda sem nada, ocorrendo ncsta situa^ao a 
problcmas, ficando apenas sem o cmissao de ruidos alcatdrios se 
som. voce tiver o PSG conectado ao 

As rotinas cm Assembler sao micro, 
gcrenciadas por um programa em ■ 

BASIC no qual voce pode modifi- ® 

car a variavel M. que controla o 
numero de astcrdidcs do progra- 
ma. com isto a dificuldade pode 

ser aumentada ou diminufda. Paulo Marques Figueira 6 T6cnico 

em Eletrdnica e Programador, de- 
DIGIT A£ AO senvolvendo jogos e programas 

nas linguagens BASIC, COBOL e 
Inicialmente, crie uma linha Assembler em equipamentos da 
REM com 605 caracteres e digite linha MSX e ZX81. 




eSCOLHIDP PE-LPS SUPS BOAS COND 

icoes dc sobpeviuencip pppp o mo 

HBM. ” 

9£ IF INKEY $ a * " THEN GOTO 92 
93 CLS 
24 PRINT 

95 PRINT SUO MISSPO E DESTP 
UIP 05 TRE5 A-NEIS DE PSTEPOIDES 
SUE 0PBITPM0 PLPNETP, PRPO OU 
E O NPvE CONS-TRUTOPO ""PUPX ESP 
PCIPl S'P POS-SP PP55PR EM 3EG 
UPPNCP • 

9e~IF INKEr*. ■“ THEN GOTO 96 

97 CLS 

98 PRINT &| 

99 PRINT "PPPP 1550 VOCE CON 
TORO COM UM CONMP0 I0NIC0 DE DE3 
TPUICPO PBCPSIVP POP DE5INTEGPPC 
po subptohicpmqleculpr instpntp 
NEm E DE5MPTE-RIPLIZPCP0 MIPEPBO 
LICP. ’ 

100 POINT NP0 se esouecp de co 
L0CPR PILMP5N0 CPNMPO..." 

101 IF ZMtev«> THEN GOTO 101 

102 CLS 

103 PRINT A| 

104 PRINT . . "PPOTEJP SUP UNIDPD 

E DE ENEOGIP ”■• •• DOS KRPGMENT 
OS DOS PSTEPOI-Des. SE ELP FOB 
pt: ^idp voce estppp em mpus len 
coi*. iniifci 



GOTO 105 



'US® 17109 



0631070706161256130 



VOCE POI PPZOPVEL MPS NPO-.PT 13 
.2, "SERVE POPP MPNEJPP UM CPNMPO 
IONICO DE DESTPUICPO" 

26 IF Fm3 THEN PRINT PT 12 5 
VOCE OoPSE CONSEOUI. TEN 

TE NOVPMENTE OK." 

27 FOB T.l TO 100 
26 NEXT T 



Listagem 1 



Listagem 2 



1 E£M NPO DELETE ESTP LINMP 

2 POKE 16514.0 

2 =RINT PT 0 0. ’■EriP*O0O T 

PONTOSB000 



5 PRINT PT 20.15.CMR* 129«CMR 



i IF W . 1 Then lET n,*o 
9 IK F «2 THEN LET M.60 

10 IK K«3 THEN LET Mc90 

11 KOP P«1 TO M 

12 PRINT PT tl4«RND>44 I31«PND 



15 PRINT OT ai . PND « 31. -■ 

16 POKE 16418.0 

17 PRINT PT 23.5; "KPSE ", K PT 
23.20. LUNOR 10 

16 POKE 16416.2 

a LET ZX.USR 16624 

IK PEEK 16514.150 THEN OOTO 
31 

21 IK PEEK 16514.200 THEN GOTO 
39 

22 G0SU6 106 

23 PRINT PT 10,5; -SEU CPNMPO » 
01 DESTRuIDO" 

24 IK K. 1 THEN PRINT PT H 5 
SUP MISERP MPBILIDPDE KOI" . PT 12 
, 10. UM KPPCP5S0. " 



29 CLS 

30 GOTO 63 

31 PRINT PT 12.3. "SEU TEMPO PC 

OBOU. NPO PODE NOS HP IS PEP 

MPNECEP NO E5- PPCO. U0NO5 

PETOPNPR P TEP RP." 

32 KOP T.l TO 26 

33 PRINT PT 18. T E« 

34 NEXT T 

35 KOP T.l TO 30 

36 NEXT T 

37 CLS 

38 GOTO 63 

39 POKE 16416 -0 

40 PRINT PT 23.0. "KPSE ,K T 
EPMINPDP 

41 IK K«3 THEN GOTO 49 

42 PRINT PT 05 "000 

43 LET K.K.l 

44 KOP T.l TO 30 

45 NE-T T 

46 PRINT PT 23.0." 

47 POKE 16418,2 
46 GOTO 8 

49 let P6 1 129 TO 160 1 *P 6 « 1 TO 

”*50 _ET Pt«P»*' PPPPBEN; VO 

CE CONSEGUIU 

51 LET >(. 0616009012050756130 

0 

52 G05UB .06 

53 »0P C *8 TO 16 

54 KOfi 0*0 to 31 



56 NE*T D 

59 NEXT C 

60 lET X*. 0615“ 

61 GOSUB 106 

62 LET D.O 

63 »0P C .200 to 10 STEP -70 



NEXT t 

GOTO 63 
CLS 

LET X(> 0600 
GOSUB 108 
GOTO S3 

SPVE B-JNPfi lCfl 
KPS T 

LET •*. 0'560815" 

GOSUB 108 
LET D.O 

KOP P«1 TO 3000 
LET C.PN042SS 
GOSUB 114 

IK INKE •= THEN NE • T P 
LET •(.0800 
GOSUB 108 
SlOu 

lET E.129 



THEN GOTO 65 



LUNHR 10 

mi 



69 LET C 6 > mXd 

90 PRINT a% 

91 PRINT . NO PNO DE 2130.5' 

0 HOMEH TENTPCONSTPUIP SUP BP5E 

ESPPCIPL HP I SD I ST PNTE . P LUP OU 
E ORBITP 0 PlPnETP VEGP 615 KOI 



105 IK INKE>». THE 

106 CLS 

107 GOTO 2 

106 KOP V «1 TO LEN X 
109 lET D.UPL • 6 >y T 



LEN x« STEP 4 
««IY TO Y4ll 



112 NEXT, Y 

113 RETJPn 

114 POKE 1'llO.D 

115 POKE 17114, C 

116 LET Zx.uSP 17109 

117 RETURN 
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A Alphaprinter IP-40 









fazoqueoseu 






computador nao faz. 



Com um toque de gMa 

Alphaprinter IFMO 6 a impressora mais genial e simples que voc6 jd viu. Genial 
porque 6 de grande utilidade no seu dia-a-dia, complementando o trabalho de seu 



computador. E simples porque bpsta um toque para que funcione, podendo ser 
acionada at6 por uma crianga. t util tamb^m a profissionais liberals, estudantes 
e donas-de-casa, pois imprime orgamentos domGsticos, mala direta, controles 
de estoque e de contas a pagar e receber. Imprime caracteres 
em dupla altura e caracteres pessoais, como assinaturas e 
logotipos. A Alphaprinter utiliza a mesma bobina das 
mlquinas de calcular que voc6 encontra em qualquer papelaria. 

E sabe o que mais? E compatfvel com vdrias linhas de 
computadores: Sinclair, MSX, APPLE, TRS 80, PCs e outros. 

Distribuigao Nacional nas lojas de 

Cine-Foto-Som especializadas, e magazines. yQIptldSyStCfll 

InduBtrta • OomiRlo Lkte. 

Avenida Republica do Libano, 2073 • Ibirapuera - Sao Paulo • F.: (Oil) 549-9788 



elebrav 22 
Os noos Toques 

caComunooq 




Comunicar e preciso. E a Elebra da. 
novamente. um toque de inovagao na 
Comunicagao de Dados. EA-1222. o 
1 0 modem brasileirocom teclado soft- 
touch". controlado por microprocessador. 
que permite a selegao das varias fungoes 
sem a necessidade de abri-lo. 

E um modem analogico para 
comunicagao sincrona a 600 ou 1 200 bps 
e assincrona ate 300, 600 ou 1200 bps. 
que segue a recomendagao V.22 doCCITT 
e possui resposta automatica. Pode ser 
utilizado em linhas telefonicas comuns 
ou em linhas dedicadas 1 2 ou 4 fios). 

O EA-1222 adequa-se automatica- 
mente aos meios de comunicagao. mesmo 
os de baixa qualidade e. para casos 
extremos. apresenta o recurso do "fall- 
back'. acionado atraves do teclado 
no painel ou do micro/terminal. 

Possui ainda nfveis de transmissao 
e entradas analogicas independentes 
para linhas dedicadas ou comutadas. que 
podem ser ligadas simultaneamente 
e selecionadas no painel ou no micro/ 
terminal. 

Outras caracteristicas do EA-1222: 
auto-diagnostico. gerador padrao 511. 
gerador de erro. atendimento automatico 
mesmo na configuragao de chamador. 
loops analogico e digital. 

Disponivel nas versoes mesa 
e bastidor. 

EA-1222. 0 toque da Elebra para 
quern precisa de absoluta precisao em 
Comunicagao de Dados. 






(^\) elebra 

Drvtsoo Gxnun*co0o de Dados 

S4o Paulo Av Eng 0 Luiz Carlos Berrini. 1461 - SP 
CEP: 04571 - Fone |0I I) 533-9977 - THex (01 1| 25957 
Rio: F*a P» X. 78/7° andar - R| - CEP 20091 
Fone (021) 223-1334 -THex (021) 23481 
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10 sc- '=:iiEE MHB 

30 sen co To i « o O.viioti 

30 =e« I; r,::- "13- g 

*0 EC" 

SO LET • ■: let ra* iinjuti 
BOEDER a POPES a Ink 7 CL5 
40 RESTORE 950 FOE f *USB a 
TO USB \ .7 Bear 9 POKE #.9 
NE«T ( 

'© JOS UB SOO uE? |.J 

80 LET p.0 l£t -o»a 

«o dim a* i a so dxh t*'*.so 

LET v *3 



pbjn” popeb a. ink 7 Boaaaa . r 

0, "Ul«ai ",V INK a PBINT 

li e din a a e let » , . f 
it LET .aifl' ■ LET a 
i” ■ L M LET . a I * * — “ 

190 'OB TTa TO * IF I .3 Then P 
bint Papes s . vf 1 1 ) . a a » a • a i 
a < a > • aiai **a'3i *«•>•> 
aeo print ,».*•, fob na* to s 

PRINT POPEB e*l-l AND IMi.ill' 

1. NE »T n BBINT vt'4 NEjCT t 

aie PBINT BT 6 0 . POPEB 5 “ O 

T 1.31. ■ INK 0 
380 POPEB 7 FOB f *0 TO 31 PBI 
NT OT lS.f.C"Ba 161, OT lB.f.CHBa 
160 OT ai.f.CNBt 16a NE«T t e 
rint ot i6 o y a bt ae.o.ya 

a30 FOB f«7 *0 1* PBINT INK 3 
OT l 0.9 1 NEXT f 

3*e fob '.a to a print ot s*a» 
10 POPEB S INK 3* < -3 AND #**' 
eaifl ■ TO 33> NEXT f 
ase LET t.100 POINT aa OT 0.0 
PAPER 0, Ink 7i -'Pent OB p o«c 

: '•aa '* T*»po "it Po - . ra 

INK 0 *ai TO ia-LEN r*. 

160 LET r. 0 LET **3 0 LET y*18 
LET pl*4 l.ET v9*99>4> LET xl 
■ ■ l£t . . 

BEN ■■■■■■■■■■ 



,n let aa' 3 > *aaia SO' *aa> 3 ) < t 
0 491 

300 IF 1*0 OR (X *19 OR x*17> ON 
D SCREENS lx ,y i ■•••• THEN PRINT OT 
x,y. POPEB 0 , INK 7,ca GOTO 66 

310 PRINT OT x .y . POPEB 0 . INK 

330 LET XaX- I INKEY 0K"9"t LET 9 
*9 * < INKEy B* 7 OND yOll-UNKEYB 

• 6 OND y >01 

330 IF K oxl OB yoyl THEN PBIN 
T OT xl.yl. POPEB T. INK OJva 5 
OUND .005 -15 SOUND .005.10 l£ 
T p.p.S PRINT 8 a , OT 0.7.P LET 
a lax LET 9 I .9 LET aS.lCHBS 160 
OND - • 18 ' ♦ I C"S a 161 OND ial5>*< 

9 a I a OND X/4.INT (X/41) IF a a 1 
5 THEN LET r *1 

340 ta ET tat -a PRINT 84 . OT 1,6 

350 IF NOT r THEN GOTO 380 
360 IF a al4 THEN GOTO 430 
370 PBINT OT 13.0. POPEB 5, INK 
0.t>a'4>l TO 331. OT 11,0 INK 3. 
PBOi 1 TO 33 OT 9.0,61(3' ■ TO 3 
a> OT 7,0. pa '4' I TO 33 > 

390 LET ea'4> aei'41 (3 TO l* 6 B'i 
1 LET PB ia> ata <a ,50> *ta'3' ' T 
0 49 LET P9<3> abB'3’ '3 TO 1 »B 8 
13.1 LET b9'4> *6*14.50' *69'4> 1 

TO 49' 

400 JQTC . ■ 

410 BE" 

430 IF Pl.O then goto 560 

430 LET >a>-4 LET YS*t*'Pl.V*4 

let ea ip 1 y *a > *ca 

440 POINT OT 13,0; POPEB 5, INK 
0.tBi4l I TO 331. OT 11 0 INK 3 
£83 I TO 33'. OT 9.0 PB'S'l TO 3 
a o* 7 e.ei'n 1 to 3Ji.ot >,« 
in* e . c a 

460 :» «!• then GOTO 660 
470 IF INKS a a " 9' THEN let p*p« 
5 SOUND .005.-15 SOUND . 005 10 
lE’ »a>Rl.y*a> *va let la.-a 
LE* Pl*Pl-a POINT 84, or 0.7 P 
GOTO 430 

460 LET y ay • 1 P 1 *4 OB Pl*3>-(pla 
a OR p 1*3< 

490 w£T »a<a> *66141 13 TO i* 6 B'l 
I LET pai3'*6a a,5C'*b*l3'l T 

0 49 l£t t a < 3 1 *68 13' (3 TO 1*66 
<3 , 1 > LET eB'4' *ea<4. 501*69141 ( 

TO 49l 

500 IF INKE ' a* ‘ 7" THEN let pap* 
5 SOUND .005,-15 SOUND .005 10 
le t pa ip 1 9 *a 1 *v a let »*»b*’P 
1 . 9*3 lE’ 68 IP1 . 9*31 *ca LET 9 

• 9* a PBINT 84 O’ 0.7.P 

510 IF INk.Et 6 • 6 * then let pap. 
5 SOUND .005.-15 SOUND .005,10 

LET 6 S ip 1 .9*4 i a»B LET V** 6 S'P 

1 91 LE~ b|'®l 9I*C9 LET 9 * 9-4 

pfi int aa ot 0 7,p 
530 I* 9 >31 OR 9 <0 OB t*0 THEN 
GOTO 660 

530 LET tat -4 PBINT 84 . OT 1,6, 



5*3 33~3 440 

550 beh ■■•mrrranaR 

560 IF 53BEEN8 ^aT 3= 
SCREENS tx.uio- THEN GOTO 660 
570 PBINT OT K-4.9 INK 3, POPE 
B 5 . V a OT X -4 ,9—4, COPER 6, INK 
l.dB'3 OT ,-3 9-a aa'31 . at »-3, 
9 -a 99141 

580 LET p.p.se.t LET t la 1 1 * t 
LET 9*9*a IF 9*5 THEN GOTO 610 
590 FOB f.a TO 10 STEP 3 SOUND 
• 1 , UOL 4 a I r TO f .41 NEXT t GO 

TO 350 

600 cei ■ m — inamiiM 

610 LE” 3*4 lP p.p.jfli.'l _E 

t v *v ♦ 1 ro ' 3»XNT i'o 3i 1 LET ro* 

630 »0P 9*3 TO 31 STEP 6 PRINT 
POPEB 6 . INK 4 , FLASH 4.0T 3,9 
9BI4 OT 4 9 99(31. AT 5.9 99(3' 
NEXT u 

630 FOB l*a TO 33 STEP 3 SOUND 
.15. UOL sail TO 1*41 NEXT I 

640 GOT O 170 

650 B£h W IS II 

660 fob (.10 to 54 ITfB i soun 

0 .I t NE *T 1 

670 LET vaw-4 IF 9 a— 4 THEN GOT 

0 700 

680 LET p.p.tl GOTO 100 

m 

f 1 h a." 

710 IF p.art then GOTO 750 
'30 PRINT OT 17.0 POPEB 0, INK 

7, "Rarjaans . • oca quabrou o a: 
or a* qua ara 98 ‘ . r 8,“ pontes. ",0 
T 19.0. "Favor 8191 tir sau noea ( 
Max 131 Input r« 

730 IF lEN r a > 13 THEN GOTO 730 
*40 LET ra*p PRINT 84. OT 0 0 
POPEB 0 INK 7. Pontes ••. FLOS" 
a.p. f l os" 0 Racora* ". flash a 
.ra flash o ot *, 0 , t**po ".t." 
Bor . flash i.'i. Flash e 
'50 POINT OT 30.0 POPEB 0 INK 

7," Cast,* joaar novaaantt’ (4/ 
m 

760 IF INKE»**»" THEN FOB ( *0 
TO 33 BONO USB 3883 NE*T f 00 
TO 60 

780 IF INKEv*."n“ THEN GOTO 108 

= ei- ■■jaminmai 

sio let ca*CWoa 119 RIM 4*13.3 

LET 96 ‘ 4 *CHB» 163* ■ *CHBt 1 
61 LET 99(3 • ♦ ■ LET 96131a" 

830 let SB* 1309111308040604010 
303 

830 DIH 8B< 3. 33 > LET 8|i4i* 

*99 a * ^*.6 ■■■ . ~ 

♦8a‘4>»' 

'#1*” .daia**" r- 

1 I II. la VI *99131 . 

850 LET aa '3' a" "*da(3)«" I 



1309111308040604010 



564 *0R f*0 TO 3 PRINT OT 0,1. 
HICRO SISTEHOS oprasanta SOU 
ND .05.1*5 NE>T 1 
870 PRINT OT 3 0 POPEB 6 INK 
6.96. ink 3.taia> ,aai2> ;aaO) . I 

NK 8.96 

880 print ot 7,4,-varsao par* t 
K 90X • 1966" , OT 9.0i"Outor H*r 
co Tuuo da 0. ua lantajra* , cos C 
srtos naano 0 . uatanta* 

890 point ot 13.0 -ueca co»*n«* 
up sspmho out 9avaatr*vass*r u 
aa astraea a ua rio.puianeo soar 
a troncos 98 arvorasa tartaruaas 
.Hovtaanta o s *P innout ■ 1 1 Z*n90 o 
JCI9SUCS.N40 a ptr-aitidO volt* 

900 PRINT , ,T08 13. 00* Sort*' ' 
.OT 31.5 Prassion* qu* iquar tac 

14“ 

910 FOP 1*4 TO 3 LET a a ( 1 1 •* S ( 
1.33> **9'!' ( TO 3K NEXT 1 
930 POINT OT 30, INK 3. POPEB 
e *a<*' *a<a>.*ai3> if inketbo 
THEN return 

930 JO’O 910 

950 cen iwniTnn4«aH 

960 data 51. 9i.ee. 127.137. 369, j 

00,13.354.73.73 355 355 . 331 . 318 , 
34 

970 DATA 17,59,43.137,137,131 1 
18 6 19 186,170,355,855,355.355, 
0 193 64,16 355.355,307,183,48 
980 DOTA 0 1,8,4,137.343,337,13 
0.340 136.138.354.331,318.34 
990 DA’ A 0 0,0.355,355.307,183, 
48.353.74,73.855.356,331.319.34 
1000 DATA 0.363,306,306.355,331, 

319.34.0. 193.33.16.355.331.319.3 

4 

1010 DATA 63,137,355,355.355,355 
, 13? , 63 , 353 . 354 , 355 . 355 . 355 . 355 , 
354,853 

1030 DATA 331.165.355.63,60,153, 
331.103 

1030 DATA 0,7,13,36.31.63.8,16.0 
.334.119.189 95.340,16.16 
1050 DOTA 355.355.60.60,355,355, 
355,355 

1060 DOTA 355 355 355.355 355.35 

5.0. 0.00. 355 . 355 . 355 . 355 . 355 . 35 

5 

1070 DATO 355,195.189.169.169.18 
9,195 355 

1080 BOBDEB 7 POPEB 7 INK 0 C 
LS STOP 

1090 CLEOP 50UE CHR9 16*CHR9 1 
*"Fro99« r '' LINE 1 PBINT Bl. " 
Tact* Enter par* varifscar ” 
PAUSE 0 CL5 VERIFY PBINT 

OT 31,5, BRIGHT 1. FLASH l."OK. 
Gravacao p*rf*it*.“ 
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Marco Tulio de Oliveira Valente 

Este programa i uma versao para micros 
compativeis com o ZX Spectrum (TK90X) do 
famoso jogo Frogger. Nele voce comanda um 
sapo que devc atravessar uma estrada movi- 
mentada, fugindo de carros e caminhdes que 
trafegam cm alta velocidade. Caso consiga 
passar por essa primeira etapa, voce devera 
atravessar um rio saltando sobre troncos e 
tart aru gas. 

Vencendo essas duas ctapas, o sapo deve- 
ra ser colocado em um abrigo, onde ele esta- 
ra sao e salvo. Tome bastante cuklado, pols 
tanto a entrada como o prdprio abrigo sao do 
tamanho exato de um sapo e lembre-se dc scr 
rapido, pois havera um tempo pri-determina- 
do para passar por essas duas fases. 

A cada sapinho salvo, voce ganha um bo- 
nus de 50 pontos mais o tempo restante e 
apos salvar cinco sapos, uma rodada e comple- 
tada, o que lhe confere um novo bonus, dessa 
vez de 200 pontos, alem do tempo restante. 
Logo apds tres rodadas totalizadas, vocc 
ganha uma vida extra, sendo que inicialmcntc 
suas vidas sao cm numero de tres. 

Para movimentar o sapo utilize o joystick 
ou, caso nao possua um, as teclas 6 para a 
esquerda, 7 para a dircita e 9 para frente, 
contudo, nJo e permitido voltar. A cada mo- 
vimento lhe sdo creditados cinco pontos. 

DIGIT A^AO 

A digitaqao do programa. escrito total- 
mente em BASIC, ndo propicu maiores en- 



mn 



Pon toi r l - Record* 0 

Tebro 51 Por Nin9uca 

Tela principal do jogo 

traves, a nSo ser pela existence dc 20 carac- 
teres graficos especiais. Na maioria das vezes, 
esses caracteres foram substitui'dos por 
CHR$, no entanto, nas linhas 100 a 150 - 
responsaveis pela definicao dos carros, troncos 
e tartarugas - esse arttficio nao foiutilizado, 
em virtude da grande extensao dasmesmas. 

Ao digitar essas linhas, lembre-se entao 
que as letras que at aparecem devcm ser digi- 
tadas no modo grifico, para facilitar a sua ta- 
refa observe que estas letras estarao sublinha- 
das. 



Frogger 



Tome cuidado tamb^m com as linhas de 
830 a 850, responsaveis pela imprcssSo do 
nome Frogger na tela de abertura do progra- 
ma. Os caracteres que ai' aparecem ertao pre- 
sentes nas teclas de 1 a 8. 

Para salvar o programa em fita digite o 
comando GOTO 1090, o qual tambem exe- 
eutara uma vcrifica^ao da grava^So em fita 
apdso seu termino. 

ESTRUTURA DO PROGRAMA 

A estrutura do programa e modular, com 
a existence de um programa principal e de 
quatro mddulos (responsaveis pela chegada a 
casa, final de uma rodada, morte do sapo e 
final do jogo), rotulados por uma linha 
REM e que sJo chamados atravis de coman- 
dosGOTO. 

O programa principal foi dividido em dois 
subprogramas: programa 1, que controla o 
processamento quando o sapo esti na estrada 
c num peri'odo intermediario entre a estrada 
e o rio; e o programa 2, responsavel pek) 
desenvolvimento do jogo no rio. 

A divisdo do programa principal em dois 
foi empregada visando um ganho na velocida- 
de de execu?ao, pois as fun^Oes de cada pro- 
grama sao muito especificas. 



Marco Tulio de Oliveira Valente estuda no 
Coldgio Universitdrio (COL UNI) de Vifosa — 
MG e programa nos micros CP 200 e TK90X. 
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trs-80 trs-80 trs-80 trs-8 





Cristiano Pinto Bezerra 



Atlantida 



Neste jogo, feito para os microcomputadores da linha 
TRS-80 modelos I e III com 16 ou 48 Kb (versSo cassete), a 
sua missSo sera defender a Atlantida, uma cidade situada no 
mcio do Oceano Atlantico, contra as naves espaciais do plane- 
ta Merkh , distante da terra 1 1 mil anos-luz. 

Para cumprir esta missao, voce tera k sua disposi^So tres 
canhOes de raios laser, sendo que para disparar o canhffo cen- 
tral seri utilizada a barra-de-espa^o; para o canhao esquerdo, 
a seta para a esquerda; e para o dircito, a seta para a direita. 

Inicialmente, voce recebera uma quantidade de energia 
equivalente a 100 disparos de laser. Cada vez que um canhao 
for acionado voce perde um disparo, exceto o canhao central 
onde voce perde dois disparos de laser. 

Para veneer a guerra contra os invasores, serao necessarias 
tres vitorias sobre os mesmos, por isso, a cada batalha devem 
ser destrui'das no minimo 100 naves. 



digita^Ao 



Digite a listagem do programa, observando que o comando 
POKE 16396,165, presente na linha 12540, desativa a tecla 
BREAK. Ao termino da digita^So, e conveniente excluir este 
comando da linha se voce tiver alguma duvida quanto ao que 
foi digitado, ja que caso seja descoberto um erro ap6s o en- 
vio do comando RUN, nffo sera possivel parar o programa, 
pois a tela BREAK n3o funcionard. 

Se tudo porem funcionar corretamente, sera possivel in- 
terromper facilmente o jogo pressionando a tecla ENTER. 



Cristiano Pinto Bezerra cursa atualmente a liltima s6rie do primeiro 
grau no Instituto Sto Jos4. na Cidade de Resende-RJ. Ele 4 um auto- 
didata que aprendeu a programar atrav4s de manuais. livros e revistas. 



0 REM 

1 REM 

2 REM 

3 REM 

4 REM 
3 REM 

6 REM 

7 REM 

8 REM 

9 REM 

10 CLEAR 2000 

12 CL-1M1VT-0 

13 GOSUB 8000 
20 GOSUB 5000 

30 REM 

31 REM 

32 REM 
30 NI-RND<1SI:N2-RND<13> 

60 Al-RND<9)*1:A2-RND>BI«I 

70 FOR CO— 3 TO 37 STEP 3:PRINT864«A1*C0, STRING* (3,32) IN* (Ml ) I 

71 tc*"H*:ev*:if tc*>chr*(13):a-ai:goto 300 

72 IF A 1-2 AND CO-27 GOSUB 3000 

73 A-Al : GOSUB 1000 

74 IF CL< 1 : CL-0: PR INT943, CLI lOOTO 300 

73 IF CO-57 : PR 1 NT064.A1 »37, E *! : FOR ES-1 TO 3S ET-RND < 63) ; PRINT064 
•AI*E3, CHR* <46)1 : NEXT 

76 NCXTIFOR SS-1 TO 20: X-USR <256*SS> : NEXT 

00 FOR CO-60 TO 0 STEP-3: PPINT064-A2-CO, N* (N2) I STRING* (3, 32) I 
81 TC»-IN»EV*: IT TC*-CHR*(13):A-A2:OOTO 500 
92 IF A2-2 AND CO-30 GOSUB 3000 
83 A-A2: GOSUB 1000 

81 IF CL 1 : CL -0: PR INT043, CLI : GOTO 500 

83 It CO 0:PRINT064*A2,E*I :FOR ES-l TO 3:E3-RND<63> : PRIFT 064 *A2* 
Ef-.CHR* (46) I : NEXT 

86 NEXT1FOR SS-1 TO 20 : x-usr < 236*ss > : next 
100 GOTO 50 
300 REM 

501 REM OOO ROT1NA / CONDI COES OOO 

502 REM 

303 FOR SS-l TO 10:X-USR(236+RND<10)»3000>:NE>T 
310 ir ne- 100:vt-vt.i:sc:-sc*ne:ne-0:cl-100:FOR t-i to 50O:next: 
FUR 36-1 TO 50: X-USR ( 256*5<RND < 50) ): NEXT: IF VT -3: CL-0: PR INT064-A 
*CO,E*;:GOTO 900 ELSE 20 

320 IF NE 100: VT-VT- l : SC-SC-NE: NE-0:CL-100:FOR T-l TO 1000:NEXT: 
IF VT 0: VT -0: CL-0:PR!NT064-A*CO,E«I : GOTO 800 ELSE 20 
800 REM 

BOl REM OOO TIM - VITORIA DOS INVASORES OOO 

802 REM 

8.43 F‘RINT91 7 , NEt TMR* <32) 1043, CU 064- 15« 10, VTl 464* 13*37. SCJ 
BUS GOSUB 12000 

806 FOR A3— 6 TO 1 4 : PRINTli64«A3*30, STRING* < 3, 173) » : X-USR < 236- I0»A 
3 > : NE X T 

P07 FOR A 3-6 TO 1 4: PRINT 064# A3 -30, STRING* <3, 32) t : X-USR <256 -A3 > IN 
EXT 

808 FOR SS-1 TO 73: X-USR (236-RND (1000) >: NEXT 



810 FUR A-14 TO II STlP-l:PFINT*64.A,STRING*<i4.37M 

813 PRINT *4o4 • i A - l ) , 6TR 1NG4 164 . 45 ) I :F OR T-l TC 10J:NTXT 

820 P*HNT8M*A,BTRINO0(64.32) : : x*USR 236-S) :S-S« XT 

823 FOR T-l TO ISAeitFXT 

830 PRINT064.1K*22.ATLAN»|-|CA*I 

840 FOR S-l TO 1S:r-RINT:>-liSi- <256<S>:'* XT 

830 END 

900 REM 

901 REM OOO FIM - DcRRCTA DOT. INVASORES OOO 

902 REM 

"03 FT'IMT017.NEICUR*<32> I *43. CL 106 1 • I3» 10. VT: *64 • 1S«37, 3C 1 : 113-1 

910 FCR CO- -4 TO 56 ETEP4 

920 PRINT064-3«CO,STRITM,»iF,3. IN* OH) I 

"30 IF CO-36:PRINT064-3*CP»1 ,E*« 

940 X-USR (236 >7410 (3) *3) :NEXT:FTR ES-l TO 3:E3-RND<63> :PRINT061»8 
♦ E3 , CHR* < 46 > I : TC X T 

943 IE N3-13. 930 ELSE N3-N3HIGOTO 910 

730 GOSUB 12000: FOR SS" 1 TO 10: X-USR (256*RND If 000 > ) : NE XT 
96i> FOR MM- 1 TO 10: MM* < I ) -STRING* 1 40, CHR* 1 1 28-WIU <631 ) ) : NTI4 7.'-S 
TRING* <30, CNR* 1 128*RND<63> I ) : NM» <31 -STRING* ( 4P, < MR* < I 28»RND <631 ) 
> :NM« 14) -STRING* <20. CHR* < 128*RND<63> > ) : GOSUB 17030: X- IGF <256*Ftnr 
<2300) ) 

970 NE XT : FOR M-l TO 4: NM* <H) -STRING* <30, CHR* < 32> : GOSUB 12050 

r .80 X-USR<236»20*RTIO<10)«3000) :NE*T 

783 FOR SS-1 TO ITS: X-USR < 236-4-SS) : IIE > T 

990 GOTO 830 

1000 REM 

1001 REM OOO SUB ROT I NA DE TIRO OOO 

1002 REM 

1003 IF RT-1, 1010 ELSE 1100 
1010 TC-PEEKI 144001 

1020 IF TC-32: X-USRl 236* RND< 5000) ) : GOSUB 1500 
1030 IF TC-128: X-USR<2S6*RND<3000> > :GOSUB 1310 
1040 IF TC-64: X-USR <236 *RND <3000) > : GOSUB 1323 
1030 RETURN 

1100 VZ-RND <3> : 7 Y-RND <3> I IF V2-IV. 1110 ELSE 1130 
1110 TA-RNDI3) 

1120 IF TA-1 : X-USR <236<RND<2000I ) : GOSUB 1330 
1130 IF TA-2: X-USF < 256 *R MO <50001 ) : GOEUB 1310 
1140 IF TA-3: X-USR <236 »RND <2000! I: GOSUB 1320 
1130 Ft TURN 

1500 FOR A4-10 TO A*1 8’EP -I : FRINT0F 4-F 4« 2. CHR* l 70) | : PI -POINT <3 
,A4»3-l> :P2-f-0INT <5, 04*3-2) :P3"F0INT <5, A4«3-3> 

1501 IF PI — 1 OR P2--1 OH P3--t:PRINT064»A*ai,E*::NE*NE*l:PT INIW 
17,NE«:N1»RND<13):N2-FND<I3):F0R SF-1 TO 10: X-U8R<236«SS> :NF XT 
1302 NEXTIFOR A4-10 TO A*1 STEP I : PR INT064. A4-2.CIR* ■ 32) I : TIE XT : C 
L— CL-1 : PR I NT 94 3, CL I : RE TURN 

1310 FOR A4-I0 TO AM f.TEP- l : FF INI *64«A4-3l , CHF • < 191 > I : PI -POINT < 
62,A4»3-D :P2 -POINT <62, A4*3-2T t P3— f'OINT <62, A4*3 -3) 

1311 IF PI — 1 OR P2--I OR P3- 1 1PRIIIT864»A*C0,E*I 1NE-NC-2: PRINT# 
I7,NE|:N1-RND<1S>:N2-RND<1S> :FOR SS-1 TO I 0: x-IISR < :36* 3S> : NEX T 

1312 X-USR <736*A4> -.NEXT: FOR A4-10 TO AM STEP -1 :PRINT 064 «A4* 3< , C 
HR* < 32) I : NEXT : CL -CL -2: PR INT043, CLI IGC-RND < 15) : C6-RND < 13) : IF I1C-C 
6: CL-CL-7: PRINT043. CL 1 : X -U8R <256- 100* 3000) 

1313 RETURN 
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ROTINA Pf:lNCIPAL 



46 



MICRO SISTEMAS, novembro/86 






1520 FCIR A4-1P TO A*1 STEP 1 I Pf! I NT 02.4 a A4 *61 , CHR* < 1491 8 : PI-POINT C 
I22,A4»3-1> IP2-POINT ( 122, A1-3-2) I P3-POINT I 12?,A4aI-3) 

1521 IF PI — I OR P2— 1 OR P3— 1 :PRim®S4aA*CQ,E*» INE-NE. 1 :PF 1NT* 
I7.NET :m*RNOI15>:N2-F.MD(15>:FOR SS’l TO I0:X-USP(2S6*SS>INCXT 
1322 NEXT : FOR A4-10 TO A*1 STEP-1 : PRINT 0.'.4aA4« 61 , CMM <32> I : NEXT: 
CL"CL-llPRINT043,n.l I RETURN 

5000 REN 

3001 REM OOO TIRO 1N1MIBO OOC 

1002 REM 

3010 FOR T'l TO 9001 NEXT 

3020 FOR A3-3TOI0lFRlNTa<4aA3*3l,CMR»<173. 1 1 X-UOR (236*A3) IFOR T- 
1 TO20I NEXT : NEXT: FOR A3-3 TO 10: PR1NT06 4#A3*3l ,CHR* (32) 1 1 NEXT 







► * j «i >sn < 






Pit * tfTlftJ 




5000 


REM 






500 1 


REM 


OOO 


IN 1C 10 DO JOCO OOO 


3007 


REM 






5010 


CLS: RANDOM 






5020 


FOR A-0 TO 


14:PF 1 NT 464 


♦ A*22,F TLAN*I TIDA*| : X-UGR (236.RNT (300 








4«15 


22, ATLAN*I T 1DA6I : FOR 


5-1 TO 64 : X -U5R C36IRND (64 ) > : NEXT 


5025 


PRINT061* 1 4 


STRING6 (6 


• IBF » | 




FUK E£»0 TO 


•^1 * p | • I .fiT 


z r ~ i • f - fv*^r» (i3) 


5032 


FRINT*61uE2 


•£1,CMR4<4< 




3033 


PR1NTB86.ST 


F'lflGI t l^ # I 


0>i 


3010 


FOR ED-1 TO 


1 3 : E -PNC) ( 


2 ) : PR I NT *6 4 • 1 3*E CMP* ( 176) t INC XT 


30*50 


tor ro 




2) Ipr irlTd .4r< >t,OM )08) 1 INEXT 


*5060 


FUR ED-1 TO 


, 


) I PRINT96 la 1 3* e .CHR* ( 1*10) • I NEXT 


3080 


CEf *IHR* ( 1 7 


) *CHR* ( l Qf 


) «CHR4 < 191 » 


5090 




) *CHF f ( 1 9 


> * CNF 4(1 90 


3100 


CDS OR9 < !9 


1 • CMF 6 < 1 0C 


> •C»IR4(176> 


sire 


rRlNT«64a|2 


•Wg CE0 (464 


12*70, CM* 1 <96 4a 1 2«61.CD*I 


sirs 




RING* <6« . * 




5130 


FFINT41.-NA 


VTS ELIMIN. 


U5AS 0"l 


3133 


PR1N'«64>13 


• 2, “V1T0R1/ 


\S • VT 1964*1 5*3? f fCOW ” 1 fX i 


31 10 


PRINTt41. "1 


CAFtTUCH 




5130 


PRINT*; 2. AT 


.Af i 1 ( T I DA % 




5133 


FOR SS-1 TO 


10: X-USR C 


'56*rND( 10) ! INEXT 


3168 


RETURN 






0000 

B001 


REM 

REM 


090 


NAVEE IPIMIGAS 030 



0002 REM 
B003 DIM U*(13> 

0010 fl* (1 >«CHf « < 661 ♦CUT* « 1791 ♦CNR*«1SS> 
3020 N* (2) 'CHR* ( 1671 »CHF* 1 179> *CMR* < 155) 
B030 N*«3>»CHR»<1B«> ‘CIIR*< 109) «CHR*<144> 
8040 N«(4)-CHR*( 137) •CHRtdBtt) »CHR*< 13*> 
0050 N*(3)-CHR*(133>tCHR*<179> •CHFRI4',) 
0060 M*<6)'CHR*(183>*CHR*(I40) ♦CHR*(IB7> 
8070 N*(?)«CHR*(168l *CHR* < 1 431 *CHR» < 1 4R) 
8030 N«(8'-CHP*(167> *CMR» ( 1&7> *CHR» ( 133) 



0090 N* (9) >CHR*(14I ) ♦CHP*(188) *CHR*(|42> 

8100 N» ( 10) -CHR*< 157) ♦CHR« 11371 «CHRI( 149) 

0110 N* 1 11 >-CHK*(l46> *CHR4 (191 I ♦CMR*(16I> 

3120 N*(12)"CHR*(166)*CHF*(140)*CHF*(I53> 

8170 Nt ( 131 -CHR* (139) *048* (153) ♦CHR* (129) 

8140 N* < 14) -CHR* (163) ►CMR«( 1 40) *0**11 47) 

8130 N*(15)-CHR*(171>»CHF(*(131><CHR*(I3I> 

8160 E*-STRINC*(6,32> 

10000 REM 

10001 REM OOO ABERTURA OOO 

10002 FEM 
10005 0.3 

10 410 ATLON4-CHR* ( 158) *CHR* < 173) ♦OMR* <130) *CMR* ( 131 ) ♦CHI * ( 170) *C 
H» • ( 144 . •DMI 138) *CHR* ' 1 73) *CHR* ( 170) *CHR» ( 1 37) ♦CHR* ( 1 49) 

10020 TXDA*— CHR* (171) ♦CHR* ( 129) « CHR* (149) ♦CHR* ( 183) ♦CHR* < 157) «C)I 
R* ( 168) ♦CNR* (143) ♦CHR* (148) 

10030 PRINT022. ATLAN*T TIDA*I 
10010 GOSUB 12300 
10345 GOSUK 12300 

1.4050 PR1HT364«7*2, I IFOR N-l TO 13 

10055 TR1NT N* (N) I " “ 1 1 X- JSR (236« RND ( 1000 > > I NEXT 

1C00O PR1NT0649,"< "10669. "SPACE “ I 0689, " >"l 

1 40S2 PRINT07I2, "C«nh«o"T072B. “Canhdo Control " I «732, “Canhao” T 
1 006-4 PTINT0775, ‘EiqucrOo" 1 0016. "Dirol to"! 

10.170 PR I NT 064 • 13* 16. "CRIBT I ANO PINTO DEZERRA {1983>"« 

10080 FOR SS-1 TO 236:X-USR(236*Sai:NEXT 
10090 TC*- INLEV*: IF TC*-CHR*(32>SRT'l ELSE RT-? 

18100 RETURN 

12000 REN 

12001 REM OOO NAVE -MAE OOO 

12002 REM 

12010 NM* < 1 1 -CHR* ( 181 ) ♦ STRING* (38, 108) CHR* !180) 

12020 NM* (2) — C: IR* ( 174 > ♦STRING* (3. 191) ♦STRING* (42, 179) ♦6TRIN6* (?, 
1°1 > .CHR* (137) 

12030 NM«(3)-CHR*(1391 • BTR IMG* ( 38, 1 43) ♦CHR* ( 1331 
I 2040 NM* ( 4 > -(XT * (139) ♦STRING* ( 1 7, 183) ♦CHR* < 139) hCHR* (129) 

I 2930 PRINTG61*2*12,NM* (l) 1 064*3*7. NM* 2) 1061*4. 12.NM* (3> 1®64»5* 
2t,NM*(4) 

12060 RETURN 
12300 FEM 

123ei REM OOO SUB ROT I HA CE 5 0 M OOO 

12302 REM 

12310 Z ••STRING* <24.32) :V-VARPTP( 7* > IL-PEO (V* DIM- PEEK (•■•♦2) 1 6-1. 
►2S6»MIIF E 32707 THEN E-E-63336 

12320 DATA 203. 127. 10, 62, 1.14, 0,6°, 47, 230, 3, 211, 235, 13,40,4,16,2 
47,24,243,37,32,242,201 

12330 FOP 1-E TO E *23: READ XlPOhE I.XINEXTI 

12340 PONE 16326. 1 : POPE 16327. N: POKE 16396, 163IPETURN 



SL 



At lan tula 




Desejo receber os programas abaixo reiacionados pelo(s) quallis) estou remetendo anexo um cheque nominal a Ciencia Moderna 
Computacao Ltda.. Av. Rio Branco. 1 56 - Loja 1 27 ■ Centro • RJ • CEP 20043 no valor de CzS. — 

PROGRAMAS N? - — 

NOME: 

END: 

CIDADE UF CEP 



205 1 unnun 1 ipm 



20* Do« lipe 



210 llippn 
714 DrralMm 



217 K.*rt Kaa) 

21* Mvpr? Sport* I 
222 Mvpr. Sport* II 
224 Malaga 
725 La Man. 

277 ParuAalM 



229 lo<*» 

230 Xadiri 

231 KoadligMr* 

232 Pa*, a) 

235 Mala Dana 

236 l dr I < 

237 Supn(.4a* 
23* P.rd». Am. -mb 

239 l«a» 

240 Tram 

241 Kunglul 

242 hung lu ll 

243 Id/vJnnr* 



I dUo. graft, o <ort*o «ml <rot* pndna drtmhm » pro-ta. o *- o 
tru pnrrn. ml 6a « apa. 

Vac# r o uhunn vUarvttmlr dr um .nrnbarr no drtrrtu Sua 
aldiau * ■ ..ala dratud. *o .ruandn ' <» r r um t anKa*> Trrar 
drat- os lampr. and* r *aNa> o an drpmuo dr tuprannum 
Ha. a aranha dra.ua m HU*, prgur mdn* oa .Ugnm do labaaUn 

para man a. pnm.n 

Vord r pduln dr um.agar rMarmnanbalr Irrtr dru.ua taut 

)gual ao nadu natal *HH— ' dll *ipnan*a Srma natal 

Sr (a um . amprau dr —dada Partu ipr da* pm*a* dr um dr< ato 

rm dr. modaJidadr* 

Via r rua u**ad>nd<i uu.ro planna rvar *r. drunudo prim .a* a* 
r m.**ri* rumigo* Hu.it baan' 

Sua mma> r drUiun m mimigm no Ka> Haul Igual ao <h> ■ar.am. 
Sr ia um alkna r ,auhr bnou* <um *ua roMai 
A mta.ua! . .aainua.au do hvpr. tpiatt I 

Sanaa, natal prgo .a*dr *ua prfaia *rta Iruada a tndo naanrta.. 
Farm >pr dr uma . .aiula dr I .amula I 

Igual ai. *g-.ama itnnut alrrt laan.r. nnhrranrMo da 
tuprrh. adaluar ilru.ua m ntonlr* mmadm r m dium «adn.n 
guroalacam 

Sum halnluladrt dr atutan arrao iruada* < um rUr p.ug.ama 
Itadn uatal |.«r' dr aadirr rm • noma ddrirmr* 

Wa natal < .....da dr I .amula I rm b aulndnaitm 

4*. mat* 

1 .npilad. paual i Manual rm rtpaoNnl I 
pi0vt.no ban. .. dr dadin pair rmnaao dr rtigau* 

( onrotv o tru ru.np «r art 100 Urn* pin argunai 
P*ar o Sri. nptr.n r dru.ua a* kaa* .n.mnja* 
la. air a p.rda. au.anb.ado 



lair ba. air . .mm oa ntaaar* arum do Japa.. 
Santa, natal . arm* 6- *> Kuna l. l 



244 llrval.a 

245 Pa. Man 



246 Ping pnng 

247 IkiaUmi 



•** Todos os programas acompanham manual em Horlugucs. 

Pe$a gratuitamente uma lista completa de livros e programas. 



CIENCIA MODERNA 
PROGRAMAS PARAMSX 

(HOT BIT E EXPERT) EM FITA CASSETE 



P8ECO 



NOVIDADES LANCADAS NOS 



MESES DE JULHO E AGOSTO: 



24* Hramudn 
249 /auoi 



Halalha nan ru.rla. 
DrU.ua o ro6o 7au<ai • 



. tru i a. a .nirrplanna 



250 Hu. k Kogn 



251 n*r(«omr* 

252 Vollri BaU 

253 Wan«ad 

254 G.and Naiaatal 

255 Hung 1 u Maun 

256 Kavgt Vallrv 

257 FI^SiDmk 



I ibrrtv m 7 gonunr* pirun na i avatna 
Santa, natal |ngo dr min < .an <> nano 
Halalha atpa. ml no taoulo XXIII 
( ouda dr .at aim nan ubUarulm 
Ida dr kaiatr . .an 5 laart Santa, natal 
Prgua o Irunrfo do 1 a. an [Svrftm latat 

< omhalr na Malvnvat Dn .da 0. porta avmrt hu.ig.aS a >Dta 
bianbaidn a r l.avr . .anbalr arm. ..an m <a*m immigm U 
man n«gn H Sun pa. a o tnl.ma MSX 

C . an bait aa.ro na.r o I lint M^t 25 tutirta m (mu lupat 



259 (.bnubuunt 
2*0 Alpha Star 



2*2 (.aba* 

263 Myppn KalK 

264 Ja.aH.an6a 



IS. Iam.m. Mma ( av a am 1 ataatmm 
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Weltman Andrade de Carvalho 

Este programa foi dcscnvolvido intci- 
ramentc em BASIC c utiliza tclas de 
alta e baixa resolu^Oes. 

Ao iniciar o jogo, voce tem CzJ... 
10,00 de credito e lhe e perguntado 
quanto o jogador quer apostar, sendo o 
valor minimo de CzJ 1 ,00. Escolhido 
o valor, apcrte a tecla ENTER e entao 
sera mostrado o valor pago para cada 
jogo feito, de acordo com sua aposta; 
a tela serd apagada e serSo distribuidas 
as cartas (cinco), que poderSo ser tro- 
cadas no mdximo quatro vezes. 

Sc voce quiser efetuar a troca, bas- 
ta digitar o numero correspondente a 
posi<;3o da respectiva carta. Por exem- 
plo, o numero 1 corresponde a primeira 
carta a esquerda da tela, e assim por 
diantc. alem disso, as cartas a screm tro- 
cadas cstarJo marcadas com um quadra- 
do amarelo logo acima. 

Caso voce mude de op^ao dc troca 
ou marque alguma carta errada, basta 
apertar a tecla CLEAR e fazer nova 
op<;ao, pressionando a seguir a tecla 
ENTER para o computador dar novas 
cartas. Se voce estiver com uma “boa 
mao”, o computador voltard a tela de 
texto, informando qual o jogo feito e 
o seu valor, alem disso, ele perguntara 
se o jogador quer dobrar o que ganhou. 

Rcspondendo n3o, tecle N e o valor 
que voce ganhou sera somado aos seus 
creditos antcriores; se a sua op^Jo for 
sim, o computador perguntard se desc- 
ja cartas altas ou baixas. Feita esta 
op$ao, o computador mostrara uma 
carta e se coincidir com sua cscolha, 
o valor de creditos desta jogada serd 
dobrada; caso contrario, o valor que, 
havia sido ganho na ultima jogada 
sera recolhido. 

O leitor tambem podera dobrar a 
sua aposta quantas vezes quiser, con- 
tanto que nSo perca em nenhuma 
dclas. Em todos os casos citados ante- 
riormente, toda vez que terminar uma 
jogada o programa sempre voltara a tela 
inicial, informando o valor dc creditos 
atual. Sc o seu credito chegar a zero, 
voce ainda tera mais uma jogada, 
porem, caso perca, o computador lhe 
informara o quanto deve, fornecendo 
cm seguida mais CzJ 10,00 de credito. 

ESTRUTURA DO PROGRAMA 

A seguir, s3o fornecidas as partes 
que compOem o programa para facilitar 



a compreensJo do funcionamento do 
mesmo: 

• Linhas 10 a 350 — o computador 
faz os desenhos dos numeros, letras e 
naipes que serSo apresentados no decor- 
rer do jogo; 

• Linhas 380 a 570 - mensagens so- 
bre o programa e a tabcla de apostas; 

• Linhas 610 a 960 — sub-rotina de 
desenho das cartas e escolha das mes- 
mas; 



trs-color trs-color trs-color trs-col 



Color poquer 



• Linhas 970 a 1220 - sub-rotina de 
troca de cartas; 

• Linhas 1230 a 1520 - sub-rotina 
que ana lisa qual foi o jogo feito, atri- 
buindo os valores. 



Estudante da Engenharia Entries na PUC/MG, 
Weltman Andrade de Carvalho possui um CP 
400 onde desenvolve programas para as trees 
de engenharia e later. 



10 GHJ-RNDI -TIMER) 

20 A#-CHR#<128):CZ-10:E#-CHR#(17 
S) :C*-STRING*(32,E»> 

30 DIMW (13,15): DIME (13, 20) : DIMR < 
13,20) :DIMT<13,20> : D1MK (6, 8> : DIM 
0(6,9) : D I M J (5,8) : DIMA <7, 9) :DIMD< 
9,8) : 0 I MN (6,8) 1 0 I MO (6,8) : D I MS ( 6 , 
8) :DIMP<6, 8) 

40 PMODE3, 1 : PCLS2: SCREEN0, 0 
50 CLS0 

60 F0RS=2TO5: CIRCLE (10,10),S,4:C 
IRCLE (19, 10) ,S, 4: CIRCLE (14, 15) ,S 
,4:NEXTS 

70 PR I NT® 138, "color “J A#) "pokar"| 
80 PRINT8470, "BY“JA#| "WELTHAN"! 
90 GET (7, 7> - (25, 25) , W 
100 C I RCLE (14,5) , 2 , 4 : C I RCLE (14,5 
> » 5, 4 

110 GET (5,1) — <21,21), E 
120 F0RS-2T05: CIRCLE ( 20, 30) , S, 3: 
CIRCLE (29, 30) , S, 3: CIRCLE (24 , 25) , 
S, 3: NEXTS: LINE (18, 37) — (30, 37) , PS 
ET1LINE (24,371- <24, 30) ,PSET 
130 GET (16, 20) — <32, 40) , R 
140 FORX-2T04: CIRCLE <50, 50) ,X,3: 
C IRCLE <62, 50), X, 3t CIRCLE (56, 44), 
X,3:NEXTX 

150 LINE <56, 44) - <56, 56) , PSET : LIN 

E <53, 49)- <59, 49) ,PSET: LINE <50,57 

>-<63, 57), PSET 

160 GET <46, 40) -<68,60) ,T 

170 PCLS2: COLOR 1,4 

180 L I NE <10, 10)- (10, 2), PSET : L I NE 

<10,6)— (16,2), PSET : LINE ( 10,6)— (1 

6, 10), PSET 

190 GET < 10, 2) — < 16, 10) , K 

200 LINE <10, 30) — (16, 38) , PSET, B:L 

INE <14, 37) — ( 16, 39) .PSET 

210 GET <10, 30) - ( 16, 39) , Q 

220 L I NE <16, 60 ) — ( 1 6 , 68 ) , PSET : L I N 

E< 16, 68) -<1 1,68) , PSET: LINE <11, 68 

) — < 1 1,65), PSET 

230 GET ( 1 1,60) -(16, 68), J 

240 LINE <10, 80) — < 16, 85) , PSET, B: L 

INE <10, 85)- <10, 88) , PSET: LINE <16, 

85) — < 16, 88) ,PSET 

250 GET (10, 80) - < 18, 90) , A 

260 PCLS2 

270 LINE <10, 10) — (10,2), PSET: L INE 

< 14, 2) — ( 19, 10), PSET, B 

280 GET <10,2) — <19, 10) ,D 

290 LINE <10, 30) - < 16, 34) , PSET, B: L 

INE <16, 34) -<16,38) .PSET: LINE <16, 

38) -< 10, 38) , PSET 

300 GET <10, 30)- <16, 38) ,N 

310 LINE ( 1 0, 50) — (16, 54) , PSET, B: L 

INE <10, 54) -< 16, 58) , PSET, B 

320 GET (10, 50) - ( 16, 58) , O 

330 LINE (10, 70) — (16,70) , PSET: LIN 

E< 16, 70) -(14,78), PSET 



340 GET ( 10, 70) - < 16, 78) , S 

350 L1NE<10, 160)-<16, 164) , PSET, B 

:LINE<10, 160) - <10. 156) , PSET: LINE 

<16, 156) —(10, 156), PSET 

360 GET <10,1 56) — <16, 164), P 

370 PCLS1:A#«CHR#(128>:CLS0:CZ=C 

Z ♦GAN: GAN *=0 

380 IFCZ C0THENPR INT064 , "SEU CRED 
I TO ACABOU.VOCE DEVE CZ#"i:PRINT 
USING"##. •«"! ( 10-»RBS(CZ) ) I : PRINT 
" CASO DUE IRA CONTINUAR A JOGAR 
SALDE A SUA DIVIDA E COMFRE MAIS 
10 CREDITOS . DEP0I5 APERTE A BA 
RRA DE ESPACO. BOA SOFfTE" : IF INK 
EY# C >CHR# (32 ) THEN380 ELSECZ-1 
390 CLS0 : PR I NT 086 , " •» 

400 FORX-1TOS:M(X)-0:NEXTX:COLOR 
4,2 

410 PPINT00, "VOCE TEM CZ*";:PRIN 
TUSING"#, ••#. | CZ I : PRINT" DE C 
REDITO" 

420 PR I NT 864, "DUAL E’ A SUA APOS 
TA"«: INPUTAZ: IFAZ< 1THENSOUND12.3 
:GOTO420 ELSE PR I NT® 12, ”"| : PRINT 
USING"#, #•#.#•" J (CZ-AZ) 1 : PRINT" 
DE CREDITO": PR I NT085, “ M | :PRINTIJS 
I NG“# , #•#. •#" ; AZ : CZ— CZ— AZ 
430 RF-250:SF«125:FO-65:FH-15:FL 
-30: SE-8: TR-5: DD-2 
440 PR I NT® 128, "royal "» A# » "•treat 
" I A# I "T 1 ash " : A# | " " ( : PR I NTUS I NG " 
•#,«•#. #•"» <RF»AZ) 

445 X •—ST RING# (7, A#) 

450 PRINT8160, "»trt«t"|A$l "Tlash 
"JX*J" " I : PRINTUSING" ##,###.##"< 
<SF*AZ ) 

460 X*— STRING# ( 15, A#) 

470 PRINT0192, "four": X*J" "»:PRI 
NTUSING"##, ###. | <FO*AZ ) 

480 X«-STRING#(10,A#) 

490 PR INT82S6, "Tull"! A* J "hand"lX 
#1" " I : PRINTUSING"##, ###.##" | (FH 
•AZ) 

500 X#— STRI NG# <14, AS ) 

510 PRINT0224, "f 1 ash") X#| " " » : PR 
I NTUSING"##, tttt«.#«"| (FL*AZ > 

520 X*— STRING# ( 10, AS) 

530 PRINT8288, "saquenci a" { X#; " " 
i :printusing-##, ###.##•• j <se*az> 

540 X#— STRING# < 13, A*) 

550 PRINT9320, "trinca“l X*5 “ "i:P 
RINTUSING"##, #•#.#•"! <TR*AZ) 

560 X#— STRING# (8, A#) 

570 PRINT6352, "duas” ; A#; "dupl as " 

i x#i " "i :printusing“«#, #nm. ##••: < 
DD#AZ ) 

580 FORX-1TO2400:NEXTX 

590 SCREEN1 , 0: G-0: DZ-CZ 

600 FORX-5TO250STEF53 

610 LINE (X, 80) - (X+44 , 1 60) , PSET, B 
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620 FAINT(X+22,82> ,2. 4 


1 140 FORX-ITOBM 


A 30 FLAY-L90O1V21G" 


1150 IFRN-C(X) THEN GOTO 1130 ELS 


640 NEXTX 


E C ( BM+ i ) =RN 


650 G0SUB7 1 0 : C ; 1 ) =RN 


1 160 NEXT < 


660 GOSUB7 1 0: C (2) -F:N: IFC (2) -2(1) 


1170 IFLK+5-BM+1 THEN 1190 


THEN 665 


1180 EM'-BM+l : GCT0 1 130 


670 GOSUE 710: C (3) -F)N: IFC (3> -C (2) 


1 195 00-02 FDRR-1T05 


OR CC35-CU1 THEN670 


1200 IFH(R) X5THEN OG ~CG + 1 :C(H(R 


o80 G0SUB7 1 0: C ( 4) -RN: IFC < 4 ) -C (3) 


) ) -C (5+03) 


OR C(4)-C(2) OR C(4)-C(l) THEN 


1210 NEXTR 


680 


1220 GOSUE 77.0 


690 GCSUB710:C(5)-RN: IFC<5)-C<4) 


1230 FORX-1TO1400:NEXTX 


OR C(5)-C(3) OR C'5)-C(2» OR C( 


1240 F0RRT-1T05 


5>»C(1) THEN 690 


1250 GOSUB950:OW(RT)'XJ:NEXTRT 


700 GOTO720 


1260 F0RY-1TC5 


710 RN-RND ( 4 ) *1 0+RND (9) : RETURN 


1270 F0RX-IT04 


720 GOGUB730: GOTO760 


1280 IFOW(X) - OW(X+l) THENCB'QW(X) 


730 CQ— 0: FORR T- 1 T05 


:ow<X) -ow(x+i ) :dw : x+i >-CE 


740 GOSUB810: IFGT-4THEN PUT:i7+C 


1290 NEXTX.Y 


Q, 1 18) - (32+CQ, 133) , W 


1300 cb«0:forx«ito4 


750 GOSUP010: IFGT-3THEN PUTU7+C 


1310 IFQW ( X ) -1 -QW ( X + 1 ) T HENCB- CB+ 


o, l :e> -(32+co, 138: ,e 


1 


760 GOSUB310: IFGT-2THEN PUT(21+C 


1320 NEXTX 


O, 1 18) - (33+CQ, 138) ,R 


1330 FORRT=1TO5:GCSUBO10: X (RT) -G 


770 GOSUB810: IFGT-1THEN PUTJ15+C 


TINEXTRT 


Q, 1 1 8) - < 38+CQ, 138), T 


1340 NH-0: FORY- 1 T05 


780 IFCBX-1THEN833 


1750 F0RX-1T05 


790 CQ-CG*50:NE(TRT 


1360 IFX (X ) - X (Y) THEN NH-NH« 1 


800 GOTO820 


1370 NEXTX, Y 


810 GT-INT (C(RT>/ 10) : RETURN 


1380 I FNH=25THEN1 500 


820 CQ-0:FORFT-1TO5 


1390 IFCB-4THEN GAN-SE *AZ : J0*="S 


830 GOSUB°50: IFXJ-9 THEN PUT <13* 


EQUENC I A" : GOTO 1 530 


CO, 85)- ! 20+ CQ, 95 ) ,A 


1400 NH=0:FORG-1TO5 


B40 GOSUB950: IFXJ=8 THEN PUT (13* 


1410 F0RX-1T05 


CO, 85) — '20+CQ, 93) , K 


1420 IFQW ( X ) =OW 1 G) THEN NH=NH+ 1 


850 G0SUB953: IFXJ-7 THEN PUT . 13* 


1430 NEXTX 


CO, 85) -(20+CQ, 94) ,0 


1440 NEXT6 


860 GOSUB950: IFXJ-6 THEN PUT (13+ 


1450 IFNF — 1 1 THEN GAN-TR* A2 : JO*- " 


CQ, 85) - (20+CQ, 93> , J 


TRINCA-: GOTO 1530 


870 GOSUB950: IFXJ-5 THEN PUT(13+ 


1 460 IFNH~ 1 7 — HEN GAN—FO+AZ 1 JO*-’* 


CO, 85) - (22+CQ, 93) , D 


FOUR": GOTO 1530 


880 GOSUB950: IFXJ-4 THEN PUT(13+ 


1470 IFNH— 1 3THEN GAN=FH»AZ: JO«-- 


CQ, 85) -(22+CQ, 93) ,N 


FULL HAND”: GOTO 1530 


890 GOSUB950: IFXJ-3 THEN PUT (13+ 


1480 IFNH=9THEN GAN=DC*AZ : J0*= "D 


CQ, 85 > - ( 22+CQ, 93) , 0 


UA3 DUPLAS" : G0T01 530 


900 GOSUB950: IFXJ-2 THEN PUT<13+ 


1490 CEX=0:GOTO370 


CQ. 85) - (22+CQ, 93) , S 


1500 IFC ( 1 ) -39 AND CB-4 THEN GAN 


910 GOSUB950: IFXJ=1 THEN PUT (13+ 


=RF«AZ:JO*« "ROYAL STREET FLASH": 


CQ , 85 ) - (22+CQ, 93) , P 


PLAY" V31 T203L8G3L4AG04C03L2B" : GO 


920 IFCBX-1THEN940 


TO 1530 


930 CQ=CQ+50:NEXTRT 


1510 I FCB-4THEN GAN-SF+AZ :J0*=" 


940 RETURN 


STREET FLASH- : GC TO 1530 


950 XJ— (C(RT) —I NT (C (RT> / 10) *10) : 


1520 GAN=FL»AZ: JO*- "FLASH" 


RETURN 


1530 CLS3:PRINTei3,JO*{ 


960 C0L0R2, 1 


1540 PRINTR96, -VOCE GANHOU CZ*“1 


970 A*-INKEY*:LK=0 


:PRINTUSlNG"et», #»#.#*• ;gan; : PR in 


980 IFA*-"1"THENH<1)-1 .’LINE (26,7 


T" QUER DOBFVAR ?- 


4 ) - ( 30, 78) , PSET , BF : SOUND20O, l 


1550 PRINT8138, " (S) IM OU (N)A0"{ 


990 IFA*-"2"THENH(2)-2:LINE (76,7 


1560 D4-INPEYS 


4) -<B0, 78) , PSET , BF: SOUND20O, 1 


1570 IFD*-"N" THEN CBX-0: SOUND1 4 


1000 IFA*-"3“THENH (3) *•3: LINE ( 126 


0, 1 : GOTO370 


, 74 ) - ( 1 30, 78) , PSET, BF : SOUND200, 1 


1580 IFD*="S" THENSOUND 1 50, 1 : GCTO 


1010 IFA*-"4"THENH(4)-4:LINE( 176 


1600 


,74) -(180, 70) , PSET, BF: SOUND200, 1 


1590 GOTO 1560 


1020 IFA*-"5"THENH(5)-5:LINE(226 


1600 PRINT0224, "VOCE ESCOLHE CAR 


, 74) - (230, 78) , PSET, BF: SOUND20O, 1 


TAS (A)LTAS A K Q J OU CARTAS ( 


1030 IFA*-CHR» (13) THEN SOUND 1,2 


B > AI XAS 9 0 7 6 "J 


: GOTO 1060 


1610 D*-INKEY* 


1040 IFA*-CHR*(12>THENS0UND245,5 


1620 IFD*- M A'THEN:PLAY“T10O3AAA" 


: forx«ito5:h(X)-0:nextx:line(6, 


:GOSUB1650: IFRN 5 THEN GAN-GAN-2 


74 ) —(250, 78) , F RE SET, BF 


:CLS3: GOTO 1540 ELSE GOTO 1680 


1050 GOTO970 


1630 IFD*-"B“THEN : PL AY - T 1 0O3GGG 


1060 F0RR-1T05: IFH(R>O0THENLK>L 


•:GOSUB1650: IFRN<5 THEN GAN-DAN* 


K+l 


2: CLS3: GOTO1540 ELSE GOTO1680 


1070 NEXTR: IFLK >4THENSOUNDl , 3: SO 


1640 GOTO 16 10 


UND2,3:FORX-1TO5:H(X>-0:NEXTX:LI 


1650 PCLS l: SCREEN 1,0:COLOR2, < :CB 


NE (6, 74) -(250,78) , F>RESET , BF : GOTO 


X-l : LINE (102, 00; -(150, 162) ,PRESE 


970 


T,B:LINE I 104,81 )-( 148, 161 ) ,PSET. 


1080 IFLK-0THEN1240 


BF 


1090 COL.OR2, 1 :FORX— 1T05 


1 660 RT-3: CQ- 1 00: F'D-RND (4 > * 1 0: RN 


1100 IFH ( X ) < >0 THEN LINE ( ( X — 1 > *5 


-RND (9) : C (3) -RD+RN: GQSUB740: FORX 


0+7,81 )-( (X-l) *50+47, 159), FSET, B 


- 1 TOl 800: NEXTX :GHJ=0 


F 


1670 CBX-0:SCREEN0,0: RETURN 


1110 NE X T X : L I NE ( 6 , 7 4 ) — ( 250 , 78 > , F - 


1680 CLS0: PR I NT# 1 38, "VOCE PERDEU 


RESET, F<F 


" 5 : 3AN=0: FORX- 1 T02: PLAY-L4T603AP 


1 1 20 BM-5 


40AP40GBT 3AL4 T6GP4 " : NE X T : GOTO370 


1130 GOSUB710 






Pdquer 



• Em MS n 9 59, na Segao Dicas, 
pAgina 70, "CLS em bloco", saiu como 
sendo para linha ZX Spectrum, o 
correto 4 para a linha ZX81 . 

• Em MS n? 60, no artigo "Planilhas 
eletrbnicas: cl$ssicas X integradas", 
pdgina 7, na segunda linha do quinto 
parAgrafo, saiu .. .nem o Visicalc ou o 
Supercalc tern..., o correto 4 ...nem 

o Visicalc ou o SuperVisicalc tern... 

e Em MS n 9 60, no programa 
"Multicor". pdgina 46, a linha 200 
da listagem apresentou erro. A linha 
correta 4: 

200 IF AIZ)-A(U) THEN 
TIME=INT(RND(1) + 999): Q*1: 

GOTO 130 

• Em MS n 9 61, no artigo "Som no 
Spectrum", pAgina 14, na sexta linha 
do segundo pardgrafo, saiu ...4 
imprescindivel alcangarmos. ... o 
correto 4 ...4 possivel alcangarmos... 
Na p6gina 15 do mesmo artigo, na 
terceira linha do primeiro par^grafo, 
saiu ...tecle N para encerrar... e S 
para continuar. O correto 4 ...T 
para encerrar... e C para corrigir. 

Ainda no mesmo artigo, agora na 
p£gina 16, na segunda linha do 
primeiro pardgrafo. saiu 
...interrompida a cada 1 / 50 de 
segundo. . ., o correto 4. . . .interrompida 
a cada 1 /60 de segundo. .. 

• Em MS n 9 61, no programa 

"Dangarinas". pigin8 47, na segunda 
linha da segunda coluna, saiu 
...POKE,769Y1 <CR>...,o correto 
4 . . .POKE 769, Y 1 <CR> ... Ainda 
na mesma p6gina, a linha 19 da figure 
4 saiu com erro, o correto 4 19 114 

24. Agora na pdgina 49, all? linha da 
segunda coluna, saiu e Linhas 105 e 

1 08. . .. o correto 4 • Li nhas 1 05 a 

108.. . 

• Em MS n 9 61, no programa 
"Sofreezerware", pdgina 58, as 
listagens recebem os seguintes nomes: 
Listagem 1 (SELETORP/VCS); 

Listagem 2(MANUTP/VCS); Listagem 
3ICONSULTP/VCS); Listagem 
4(RELATP/VCS); e Listagem 
5IRET0T/VCS). 

• Em MS n 9 61. no programa 
"Autosaver", pdgina 66, a linha 14 da 
listagem 3 saiu com erro. o correto 4: 

14 CMP .$01 - PROGRAMA 
ACA80U DE SER SALVO? 

Ainda no mesmo programa, na 
segunda coluna da pdgina 67, na s6tima 
linha do quarto pardgrafo, saiu 
.. ASMB,A$319,L65, o correto 4 
. . .ASM B,A$31 9,L83. 
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zx81 zx81 zx81 zx8 



Formula 86 

Gilson Roberto Vi ana 



Descnvolvido num TK82C, este e um 
jogo que Simula uma tcmporada dc cor- 
ridas e. como sc trata dc uma compcti- 
<j3o dcscnvolvida cm uma serie dc cir- 
cuitos (cm nosso serflo quatro), o rcsul- 
tado sera extraido do somatorio dos 
pontos obtidos pelo piloto cm cada 
pista. Todos os circuitos tern um limite 
mdximo dc sete voltas e a contagcm dc 
pontos e bascada no quociente (numcro 
dc voltas/tempo), ou seja, quanto maior 
o numcro dc voltas realizadas num mc- 
nor intervalo dc tempo, maior sera a 
pontua^Uo efetuada. 



FORMULA -86 






Poderifo participar ate tres pilotos, 
que correrao um dc cada vez, pilot ando 
o carro numero 1 . 

A meta de cada participantc deve scr 
a de completar o limite maximo de vol- 
tas o mais rapidamentc possivel, evitan- 
do colisOes com as laterais da pista ou 
com os carros controlados pelo micro 
(numero 2, 3 e 4), e que por sinal 
podem dificultar seu trajeto durante as 
ultrapassagens. 

Sempre que um piloto completar 
sete voltas ou colidir sera encerrada sua 
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'ORMULfl - 36 
■ON R. V IPNfl 



Desta forma, aquele que tiver amaior so- 
ma de pontos sera apontado o campeSo. 

A PILOT AGEM 

0 piloto dispOe de dois controles de 
dire^So e dois de velocidade (figura 1). 

digitaqAo 

Primeiro, voce devera criar uma 
linha 1 REM com 1440 caractercs e 
proccder a digita^So dos codigos hexa- 
decimais da listagem 1 usando um moni- 
tor assembler (Microbug, por exemplo). 
Apos a entrada dos eddigos, transforme 
a linha em 0 para evitar problemas (bas- 
ta dar o comando POKE 16510,0), gra- 
ve o seu trabalho e entre com a listagem 
2 em BASIC. 

Por ultimo, salve o programa comple- 
to com o comando RUN e o mesmo ja 
entrara rodando apos cada carregamen- 
to. Se houver algum problema, confira 
os codigos hcxadecimais (observe que as 
somas no final de cada linha de codigos 
sSo para auxiliar nesta corre^So). 

as 



Gilson Roberto Viana 6 e stud ante do curso de 
engenharia e!6trica, na UFPR. Ele 6 Progra- 
mador autodidata nas linguagens BASIC e 
Assembler ha tres a nos, tendo colaborado 
com diver sos programa s e dices. 



2 save 

3 = EM I 
A C EM 

5 REM I 

6 CLEAR 
DIM P* 14 

■l 1 

13 let .h . “ : m 

: A LE" :• I 2 * mEGADh 

15 DIM y s •?. 1C 

16 DIM P .6' 

17 DIM R ' 9 1 

16 DIM Bs>9 10' 

19 305 jE 2000 

20 G05ue 200 

21 GOSJE *500 

22 FOR Z*1 to a 

23 POKE 16514, Z-i 

25 POi- E 16523 Z-l 

26 RAND U5P l“10i 

27 “OR J*i TO K 

28 LET V* 71 ay* i U*3> 

30 GOSUB 600 

31 G03UE 900 

32 RAND USP 17A3S 

33 LET 0* i PEEK 17290*7) +1 

35 “OP N * 1 TO 30 

36 PRINT AT 11 . 0*13-1 • • >0 TO 
7i . AT 11.0*13-1. X* 10 . 6 TO i 

37 NEXT N 

AO G05UE 5000 
60 GOSUB 500 
100 NEXT J 
120 GOSUB 7000 
135 NE-T Z 
1 AO GOSuB 6000 
170 “OR N * 1 TO e 
i“5 oosue “oio 
130 NEXT N 

135 PRINT AT ie i 0 CnT;*.uA“ h£ 
3M05 PIL0T05' (5/N) 

137 uET C §*INi\E i S 
190 LET Us i Ct : N" ♦19*iC*a 3 
21 

193 I* U s0 Then GOTO 18“ 

195 G05UE 2030 
197 GOTO U 
200 LET Y = C 

205 PRINT AT le 1 . 'DIGITE 05 NO 
ME 5 D05 PIlOTO 5’ 

206 LET Ksp *1 

207 PRINT AT 13*H . 1 PILOTO N. 

K;" >“; 

210 INPUT D* 

213 IF Ds = THEN GOTO 210 
215 _E T i.'* K*3 1 aOt 
217 PRINT US'"*3) 

220 IF h »3 then GOTO 2030 
230 PRINT FIM ? ’ S/N) 

2A0 LET D$* INKEY* 

250 GOTO <DS = N”) * ( -37) * < DS = 5'' 
) * 1790 +2A0 

500 LET Ta-l+tPEEK 17291 *256 *FE 
EK 17292) 

501 LET TsInT -/0.0A6) /10O 

506 uE' r TPaPEEK 172“2*255*PEE* 
17273 

507 LET TPlsPEE- 17270 *256 *PEEK 
17271-TP 

503 LET V*PEEK 17290 

510 uET PTaINT (V*V*2OOO0- t TP 1 — 

• TP 1 80 ' I I 

520 LET P (J.3) *P i J*^*R^____ 

hIhhp' * - 5 I 

5 AO GOSuB 600 

550 IF T < *P (Z) OP NOT PiZ> Then 
GOSUB 3000 

555 PRINT ,, ■,«»»»♦»♦+ . gaH 

UELOC. ' P* (Z< . - 

-• - c - JEG . " 

560 1“ -“ sR ( Z* A ) THEN GOSUB AO 



PRINT •' MEDIA " , R* tZ*A 1 
P Z*A i RTS.-' 

GOTO 2010 

“OR NiK-IKOll TO 1 STEP -1 
IF PT PIN) THEN GOTO 650 
LE“" P i.N*li aP (N) 

LET R >N i aPT 
L.ET v* N ♦ 1 1 *VS (N) 

LET V* iNl *V| I 7) 

NEXT N 

GOTO 580 

LET P . N * 1 *PT 
uET V* N ♦ 1 i au* 17) 

“OR N*1 TO K 

PRINT AT 12*N 1 . N ",V*<N 



695 RETURN 

eoo PRINT A- 13.1 "DE5EJA DEMON 
STR. “ (5/N) 

e01 LET H*aINKEr* 

80 2 IF h«* THEN GOTO 301 
603 IF h* S THEN GOTO 2025 
807 RAND U5R 1“9A3 
310 GOTO 5000 

910 PRINT AT 15,1. "P05ICI0NE-5E 
" . VS (7) " P A LARGADA EM P$' 

"915 GOTO 2010 

990 .ET C 5 = 

995 “OR Y a 1 TO 2 
1000 “OR Nall TO 20 
1010 PRINT AT N , 13 , C 1 
1020 NE»T N 
1030 LET C S = 

10AO NEXT Y 
1050 RETURN 
2001 RAND U5C 

I"**- 9*9 •0uAl6uER^E?L^^^^™ 

2020 1“ INr E . S = ' THEN GOTO 2010 

2030 “OR N a 1 TO 32 

2060 RAND U5R 1“536 

2070 NE«T N 

2090 RETURN 

3000 1“ t,3O0 then RETURN 
3003 LET P <Z' aT 
3005 -E“ R* i Z 1 »V* ( 7) 

3010 RETURN 

A005 ,_E' r P t Z* A aPT 

A010 _£T R*Z*A)*V$7) 

AC20 RETURN 

5000 =AND USP 1~67? 

5005 GOTO 2030 
6000 GOSUE 990 

6010 RRINT AT 12 1 "CLA35IFICA5S 
AO DA TEMPORADA' 

6020 “OR Gal TO K 
6025 LET VS i7) ay* <G a3> 

6030 LET PTaC i G+3) 

50A0 GOSUE 600 
6050 NEXT o 

6055 IF P i 1 ) )aR (9) THEN GOSUB 61 



30 

605“ PRINT AT 18 . 1, "CAMPEAO 

« ! 1) '• C/ P (Is , •' PTS" 

6059 PRINT RECORDE , ’.PS(9i. 

C/ ", R (9) , " PT5" 

5060 GOTO 2010 

6100 LET p tg, s p di 
6105 LET E| i 9 t mV* ( 1) 

6110 RETURN 

5510 CRINT AT i£ i "PREPAPEM-SE 
SR. ‘S' P ILOTO 1 S 1 PARA INICIAP 

A “EMPORADA DE CORRIDAS."., 
PROCUREM hARCAP 0 MAIOP N. DE 
P0NTC5 EM CADA CISTA E AS5IM, 
SUPEBAPEM 05 RECORDE 5. " 0 El 
LOTO DE MAIOP PONTUACAO 5EPA 
DEClARADO 0 CAMPEAO." 

6520 GOTO 2010 

7000 “OR N a 1 TO K 

7010 u£T V» N-3* IN >3) ) a" " 

7015 LET P IN) *0 
7020 NEXT N 
7030 RETURN 



PRINT A- 18.1; 



AGUIA INFORMATION ... 64 

ALFAMICRO 66 

ALPHASYSTEM 43 

BAMICRO 64 

BEL BAZAR 66 

BRASIL TRADE CENTER 7 e 9 

CEDUSOFT 57 

CENTRALDATA 21 

CIBERTRON 41 

ClENCIA MODERNA 47 

CNTK 64 

COLOR COMPUTER 

CLUB 64 

COMPUCLUB 54 e 66 

DATAROAD 66 

DIGITUS 26 

DW INFORMATICA 36 

EDITORA CAMPUS. 12 

ELEBRA 44 

ENGESOFT 39 

FILCRES 5 

GUARDIAN 63 

JUTARO TAMURA 62 

J.V.A MICROCOMPUTADORES 15 • 36 
LIVRARIA SISTEMAS .. 31 

MAGIC WORLD 66 

MAGNODATA 00 

MC MICRO 66 

MICROCENTER 64 

MICRODIGITAL- 4? capa 

MICRO IDEIA 33 

MICROMAQ 56 

MICRO S INFORMATICA 37 

MICROSOLUCAO 62 

MIYATEC 64 

NASAJON 11 a 32 

OCCIDENTAL SCHOOLS 53 

PANTHER 64 

PEEK Er POKE 12 

PSI 67 

RB CONSULTORIA 36 

RED SOFT 23 

SISTECO 64 

SOFTNEW 39 

STOP ICARAl. 19 

SUPORTE 28 

SUSI COMPUTADORES 60 

TECNISERVICE 60 

TEKBOX 27 

TROPIC 2? e 3? capas 

VECTOR 30 



Listagem 2 

corrida nesta pista e surgira na tela a sua prova, caso contrario, iniciar-se-a 
sua coloca^So e contagcm de pontos, uma nova corrida em outro circuito. 
juntamente com os recordes obtidos. A classifica 9 ao final da temporada 
Outrossim, sera solicitado que um novo serd apresentada quando todos os pilo- 

piloto (se houver) posicione-se para tos tiverem atuado nas quatro pistas. 



C0NTR0LE 


FUNCIONAMENTO 


6 


Gira o carro, um movimento, no sentido anti-horario 


7 


Gira o carro, um movimento, no sentido horario 


0 


Acelera o carro em um ponto (de 0 a 4) 


9 


Desacelera o carro em um ponto (de 4 a 0) 



Figura 1 
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Mauro Henrique Jansem Pereira 





Atlantis 



O programa foi dcsenvolvido num Exato 
Pro com dois drives e 60 Kb, maspoderodar 
cm qualquer micro da linha Apple com 48 
Kb, com ou sem drive. Atravds de algumas 
modil'ica?5es na rotina dc teclado e outras, sc 
nccessdrio, tambem pod era funcionar no 
TK2000. 

Primeiramcnte, o jogador devc escolhcr 
entre teclado e joystick analogico Apple e o 
ni’vel de dificuldade inicial do jogo. Scu obje- 
tivo ba'sico i destruir as naves invasoras e 
atingir um numero dc pontos quc detcrmina 
a sua vitdria, antes que elas destruam toda a 
cidade. O jogo, por si, tern suas particulan- 
dades durante a batalha: a cada tiro erroneo 
sao descontados pontos do jogador e o nu- 
mero de pontos que indica a vitdria depende 
do ni'vcl de dificuldade bem como a velocida- 
de das naves. Ao sc atingir um certo numero 
dc pontos, os inva sores cnviam uma nave que, 
sc accrtada. proporciona mais pontos ao jo- 
gador. 

Os controles do jogo sao o joystick ou as 
teclas “ ■*- ’’ e " -+■ ", para os canhdes da es- 
querda e direita, respect lvamente; e a tecla 
“B", para o canhJo laser que fica na cupula. 
O jogo termina ao ser cumprido o objetivo 
ou quando toda a cidade 6 destrui'da pelas na- 
ves invasoras. 



O PROGRAMA 

Atlantis ocupa mais de 6 Kb de memdria 
e, portanto, e posicionado depois das pa'ginas 
de vi'deo e depois dos da SHAPE TABLE do 
jogo, em S6500 hcxa. Para os usuarios que 
possuem disk drive, basta digitar o programa e 
SAVE ATLANTIS, para salva'-lo em disco. Ao 
ser exccutado, o programa se auto-recarrcga 
em S6500 na memdria. 

Os usuarios que nJo possuem drive, em 
primeiro lugar, devem retirar as linhas 80 e 
90 do programa e, antes de digita'-lo, intro- 
duzir os seguintescomandos: 

POKE 103,1 : POKE 104,101 : POKE 
25856,0 

lsso assegura que o programa sera' guardado 
em S6S00 e nlo haveri conflrtos com as pa- 
ginas dc vi'deo. Logo apds, dcve-sc salva'-lo em 
fita, digitando SAVE. Lembre-se que, antes 
de carregar o programa anteriormente salvo 
em fita, & preciso sempre digitar os mesmos 
comandos acima, caso contrario, o progra- 
ma invadira a primeira pdgina de vi'deo e, 
ao primeiro HGR executado, parte do progra- 
ma s cri perdida bem como as variiveis do 
mesmo. Isso porque LOMEM: e posicionado 
bem apds o programa BASIC para as varia'- 
veis. 



Mauro H. Jansem Pereira 4 usuJno de um Exa- 
to Pro e est4 atualmente cursando eletrdnica. 
Programa em BASIC e possui tamb4m alguns 
conhecimentos de Assembler. 



10 


REM 






• ••• 


20 


REM 


• A T L A 


N T I S 


• 


30 


REM 


• BY MAURO, 


28/10/83 • 


40 


REM 


• PARA LINHA APPLE 


• 


30 


REM 


• TEL. (098) 


226 10 20 • 


60 


REM 


• SAO LUIS - MA 


• 


70 


REM 






• ••• 


80 


IF PEEK (104) - 


lOl THEN 


lOO 


90 


POKE 


103,1: POKE 


104,101: 


POKE 




25836,0: PRINT 


CHR4 (4) 


"RUN 




ATLANTIS" 






lOO 


ROT 

1 

FOR 


o: SCALE- 


:mt - 3: 


CL - 


1 IO 


A - 24376 TO 24869: 


READ 



p: poke a.p: next : poke 232 
,OS POKE 233,96 

120 POKE 1013,76: POKE 1014,0: POKE 
1013,3 

130 FOP A - 768 TO 873: READ X: POKE 
A, X: NEXT 

140 FOR A * 1 TO 3! READ 0*(A>: NEXT 

ISO J - O 

160 TEXT : HOME :UL - 178 

170 VTAB 2: HTAB 3: INPUT -JOYST 
ICK OU TECLADO (J/T)?"lT* 

180 IF T» < > -J* AND T* < > " 

T" THEN 160 

190 IF T • - -J- THEN J • 1 

200 VTAB 4: PRINT TAB ( 3> "Nival 
• : ■: FOR A • 6 to n: vtab 
a: HTAB 5: PRINT 0*<A - 3> : NEXT 



210 


VTAB 16: INPUT "Ou«l ?"IST*: 




IF 


ST* < "1" OR ST* > 


"3" THEN 




210 






220 


ST - 


VAL (ST*): ST - ST 


♦ 3 


230 


T 1 - 


i:T2 - i:ai - i:A2 


- i:c 




L - 


i:co - i:mt - s 




240 


SP - 


o:lp - l 




230 


HGR2 : HGR : POKE 230,64: VTAB 




21 : 


PRINT •>»» A T L 


ANT 



I S ««<*: PRINT "A GAME B 
V MAURO MENA! OUE-: PRINT "HA 
IT GAME, PLEASE!" 

260 GOSUB 870: GOSUB 980 
270 GOSUB lOOO: GOSUB 1020: GOSUB 
1040 

280 GOSUB 1060: GOSUB IIOO! GOSUB 
1160 

290 HOME : POKE - 16299,0: POKE 
- 16302,0 

300 FOR A - I TO 6: FOR P - 1 TO 

233 STEP 3: t p,a: NEXT : NEXT 

310 REM — INI C IC 



320 


ALT - 


INT 


(96 • 


RND (1) ♦ 9 


330 


DIR - 


INT 


(2 • 


RND (1) ♦ 1) 



340 P - INT (3 • RND 111) ♦ 1: IF 
P - 1 THEN DIR - 1 
330 IF P • 3 THEN DIR - 2 
360 IF DIR - 1 THEN IN - 21 
370 IF DIR - 2 THEN IN - 260 
380 IF SP - l AND DIR - 1 THEN P 

- 7 

390 IF SP - 1 AND DIR - 2 THEN P 

- 8 

400 REM — DES. NAVE 

410 HCOLOR- 3 

420 ROT- O: SCALE- 1 

430 LB - INT (238 • RND (11) ♦ 



440 


22 

IF 


DIR - 1 THEN IN - 


IN ♦ ST 


430 


IF 


DIR - 2 THEN IN - 


IN - ST 


460 


IF 


(IN > 238 OR IN < 


22) AND 




SP 


- 1 THEN PT - PT 


- lOO 


470 


IF 


IN > 238 OR IN < 


22 THEN 




320 





480 IF SP - 1 AND PT < ST • lOO - 
300 THEN SP - O: GOTO 320 
490 IF SP - l THEN DRAW P AT IN 
.ALT: 6 30,3: GOTO 310 
300 DRAM P AT IN, ALT: t. R 
310 AS - PEEK (234) 

320 REM — TECLAS 

330 IF J GOTO 620 

340 K - PEEK < - 16384) : IF K < 

128 THEN 680 
330 POKE - 16368,0 
360 IF K - 136 THEN GOSUB 1280 
570 IF K - 149 THEN GOSUB 1360 
580 IF K - 194 AND LP - 1 THEN GOSUB 
1440 

390 IF PT < - - 40 THEN TP - 1 

: GOTO 1630 
600 GOTO 680 
610 REM — JOYSTICK 
620 D - PDL 10): BO - PEEK « - 1 
6287) :B1 - PEEK. < - 16286) 

630 IF 80 < 127 AND 81 < 127 THEN 
680 

640 IF D < SO AND 80 > 127 THEN 
GOSU8 1280 

630 IF D > 200 AND BO > 127 THEN 
GOSUB 1360 

660 IF PEEK ( - 16286) > 127 AND 
LP - 1 THEN GOSUB 1440 
670 REM — TIRO INIMIGO 
680 IF (LB < IN ♦ ST) AND (LB > 

IN - ST) THEN GOTO 700 
690 HCOLOR- O: DRAW P AT IN, ALT: 

GOTO 410 

700 IF LB > 130 AND LB < 130 AND 
CL - O AND CD - 1 THEN UL - 
127:TC - 6:CD - 0:MT - HT - 
t 

710 IF LB > 28 AND LB < 63 AND T 
1 - 1 THEN UL - 131ITC - HT 
1 - o:mt - MT - 1 
720 IF LB > 218 AND LB < 232 AND 
T2 - 1 TK«N UL - 131ITC - 2: 

T2 - OIHT - MT - 1 
730 IF LB > 70 AND LB < 90 AND A 
1 - 1 THEN UL » 138: TC - 3: A 
1 - 0:MT • MT - 1 
740 IF LB > 190 AND LB < 210 AND 
A2 - 1 THEN UL - 138: TC - 4: 

A2 - OIMT - MT - 1 
730 IF LB > 123 AND LB < 133 AND 
CL - I THEN UL - 123: TC - 3: 

CL - o:lp - O 

760 IF LB > 110 AND LB < 170 THEN 
UL - 145 

770 HCOLOR- 3: HPLOT IN, ALT TO L 
B, UL 

780 HCOLOR- O: FOR A • 1 TO 10:2 

- PEEK ( - 16336): NEXT : HPLOT 
IN, ALT TO LB, UL 

790 HCOLOR- 0 

800 ON TC GOSUB 990,1000,1030,10 
40,1170, 1110 
810 DRAW P AT IN, ALT 
820 IF MT - 0 THEN GOTO 1630 
830 UL - 178: GOTO 420 

830 REM — — SUBROT INAS — — 

860 REM — SPACE 
870 REM — INI T 
880 REM — BASE 

890 HCOLOR- 1: FOR A - 130 TO 18 
0: HPLOT 0, A TO 20, A: HPLOT 
260, A TO 279, A: NEXT : FOR A 

- 180 TO 191: HPLOT O.A TO 
279, A: NEXT 

900 REM -- CANHOES 
910 HCOLOR- 3 

920 FOR A - 120 TO 130: HPLOT O, 

A TO 19, A: HPLOT 261, A TO 27 
9, A: NEXT 
930 HCOLOR- 3 

940 HPLOT 22,114 TO 13,120 TO 23 
,113 TO 13,121 TO 23,113 TO 

17.122 TO 24,116 TO 19,123 
930 HPLOT 238,114 TO 267,120 TO 

237,113 TO 263,121 TO 237,11 
3 TO 263,122 TO 236,116 TO 2 

61.123 
960 RETURN 



52 
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970 


REN — TORRES 


1590 


VTAB 23: MTAB 15: PRINT 


"PO 


980 


MCOLOR- 3 




NTOS: "(PT 




990 


FOR A - 30 TO 50: HPLOT 40,1 


1600 


SCALE- 1 






40 TO A, 160 TO 40,180: NEXT 


1610 


RETURN 






1 RETURN 


1620 


REN •**■ FIN - TABELAS 


•• 


lOOO 


FOR A - 230 TO 250: MPLOT 2 


1630 


FOR A - 1 TO 7: FOR P - 


255 




40,140 TO A, 160 TO 240,180: NEXT 




TO 1 STEP - io: 6 P,3: 


NEXT 




S RETURN 




: NEXT 




1010 


REN — 


1640 


-TEXT : HONE 




1020 


MCOLOR- 2 


1650 


IF TP - 1 TMEN VTAB 2: 


PRINT 


1030 


FOR A - 160 TO 179 STEP 2: HPLOT 




"VOCE DANIFICOU OS REATORES 






70, A TO 90, AS NETT : RETURN 

10*0 FOR A - 160 TO 179 STEP 2S MPLOT 
190, A TO 209. AS NETT S RETURN 

1050 REM 
1060 MCOLOR- 2 

1070 FOR A - 145 TO 179 STEP 2: MPLOT 
I25.A TO 155, AS NETT 
1080 FOR A « 110 TO 125 STEP 3: MPLOT 
125,140 TO A. 179: MPLOT 155, 

140 TO A ♦ 45,179: NETT : RETURN 

1090 REN — C 1 DADE 
1 lOO MCOLOR- 3 

lUO T - 1 30; Y - 14SS01 - 139: SOSUB 
1120SDI - 135: GOSUB 1 120:01 
- 132: QOSU8 1120:01 - 137: 

GOSUB 1120:01 - 134: GOSU8 
1120 

1120 LM - I ♦ 3 

1130 MPLOT I,V TO I.OISI -1*1 
: IF T - LN T*«N RETlfM 

1140 GOTO 1130 
1150 REN — CUPULA-LP 
1160 MCOLOR- 3 

1170 MPLOT 135,129 TO 141.129 TO 
141,128 TO 135,128 
1180 MPLOT 137.127 TO 139.127 TO 
139,126 TO 137.126 
1190 R - 15: TC - 140: VC - 145: II - 
TC ♦ RS VI - VC 

1200 FOR A - O TO 3.2 STEP .1 
1210 T2 - R • COS (A) • IC 
1220 V2 - - R • SIN (A* • VC 

1230 MPLOT II. VI TO 12, V2 
1240 T 1 - I2S VI - V2 
1250 NETT 
1260 RETURN 
1270 REN — LASER! 

1280 MCOLOR- OS DRAM P AT IN, ALT 

1 290 MCOLOR- 3 

1300 MPLOT 27,112 TO 141.0: t L: 
fc l: i l 

1310 ORAM P AT IN, ALT: IF PEE* 

(234) > AS TMEN POP S HCOLOR- 
o: **n.OT 27,112 TO 141,0: GOSUB 
1490: GOTO 320 
1320 MCOLOR- O 

1330 HPLOT 27,112 TO 141,0:PT - 
PT - 5 
1340 RETURN 
1350 REN -- LASER? 

1360 MCOLOR- 0: DRAM P AT IN, ALT 

1370 MCOLOR- 3 

1380 MPLOT 254,112 TO 140,0: fc L 
S t LI l> L 

1390 DRAM P AT IN, ALT: IF PEEK 

(234) > AS TMEN POP : MCOLOR- 
OS MPLOT 254,112 TO 140,0: GOSUB 
1490: GOTO 320 
1400 MCOLOR- O 

1410 MPLOT 254,112 TO MO.OSPT - 
PT - 5 
1420 RETURN 
1430 REN — LASER P 
1440 MCOLOR- O: DRAM P AT IN, ALT 

1450 MCOLOR- 3: HPLOT 138,124 TO 
138,0: i l: b l: i l 
1460 DRAM P AT IN, ALT: IF PEEK 

(234) > AS TMEN POP : MCOLOR- 
0: MPLOT 138,124 TO 138,0: GOSUB 
1490: GOTO 320 

1470 MCOLOR- OS MPLOT 138,124 TO 
138,o:pt - pt - io: return 

1480 REN — E« PL OSAO 
1490 MCOLOR- O: DRAM P AT IN. ALT 
S FOR V - 1 TO 3 

1500 FOR A - 1 TO 3: MCOLOR- 3: ROT- 
o: SCALE- A: DRAM 6 AT 1N.M. 

T: MCOLOR- o: DRAM 6 AT IN, A 

LT 

1510 I - - 16336 

1520 S - PEEK (2) ♦ PEEK 12) • 

PEEK (2) * PEEK (2) ♦ PEEK 
(2) ♦ PEEK (2) ♦ PEEK (2) ♦ 

PEEK (2) - PEEK (2) 

1530 NEXT 
1540 NEXT V 

1550 IFP-70RP-8 TMEN PT - 
PT ♦ lOO: GOTO 1580 
1560 PT - PT ♦ 10 • P 
1570 IF PT > - ST • lOO - 200 TMEN 

SP - 1 

1580 IF PT > - ST • lOO TMEN 16 



RAD 1 OAT I VOS DA Cl DADE, SOBR 
ECARREGANDO OS LASER A C 
IDADE AUTO-OESTRUIU-SE. . . FRA 
CASSO--": PRINT : GOTO 1730 
1660 VTAB 2: MTAB 4: PRINT "ATLA 
NT IS FOI DESTRUIDA, VOCE PER 
DEU. *: PRINT S GOTO 1730 - 
1670 FOR A - 255 TO 1 STEP - 2: 

L A.s: NEXT 
1680 TEXT : HONE 

1690 VTAB 2: MTAB 4: PRINT "INVA 
SORES DESTRU I DOS. PARABENS V 
OCE VENCEU ‘ " : PRINT : PRINT 
-pontos: -ipt: print : input 
"OUCR PASSAR P/ proximo nive 
L (S/N)?-»R4 

1700 IF LEFT* (R*,l) < > "S" TMEN 

1760 

1710 ST - ST ♦ l: IF ST - 12 TMEN 
ST - 6 

1720 PT - o: GOTO 230 
1730 PRINT TAB! 3) "TOTAL DE PON 
TOS: "IPT 

1740 PRINT : PRINT : INPUT "ODER 
JOGAR DE NOVO (S/N)7"IR* 

1750 IF LEFT* (R*,l> - "S" THEN 
RUN 

1760 HONE : END 

1770 REN •• DATA - CODIGOS •••• 

1780 REN ••• SHAPES 
1790 OATA 8,0,18,0,50,0,101,0,1 
46.0,190,0,236.0,13.1,26,1 
1800 REN NAVE - 1 m 

1810 DATA 37.36.44,34,54.37,36 
,21.54.46.36,53,54,62, 119.41 
,44.20.36.44,44.45, 174,43,24 

5.219.60.62.39.37.5.0 
1820 REN ••• NAVE - 2 ••• 

1830 DATA 43,43,53,53,45,44,44,4 

4.39.39.39.63.62.62.63.63.63 
,63,60,60,55,55.55.46,46.46. 
37,37,36,63.52.63,54,45,38,4 
5, 37, 53, 37, 45, 45. 43, 44. 37, 46 
,53,62,55,60,39,0 

1840 REN ••• NAVE - 3 ••• 

1850 DATA 45,45,60,63,103,45,13 
,56,63,63,63,63,7,40, 43, 43. 4 
3,43,37,63,63,235,31,63, 12. 1 

2. 46. 44.46.44.46. 45. 45. 60. 63 
,39,43,3,56,63,39,45,43,3,0 

I860 REM ••• NAVE - 4 ••• 

1870 DATA 54,54,53,37,44,45,46, 

46. 37. 37. 43. 33. 46.44.36.36.3 
9, 33, 62, 63, 60, 60, 53, 53, 63, 39 
,60,34,54,37,43,37,44,43,33, 

43, 43. 54, 39, 63, 55, 62, 63, O 

1880 REN ••• NAVE - 3 ••• 

1890 DATA 43,43,53,63,63,63,23, 

45.45.45.45, 141,63,63,63.63, 
63,63,46, 45, 45, 45, 43, 45,53,6 

3.63.63.63.63.119.45.77.41.3 

3.63.63.63.63.23.45, 109,45,7 

7.3.0 

1900 REN ••• E« PL OSAO ••• 

1910 DATA 9,45,181,146,7,224,28 
,31,54,254,219,12.3.40.32,56 
, 63, 76, I , 36, 56, 56, 40, 73, 49, 3 
4, 13,5,40,40,40,0 
1920 REN •• SP1 •• 

1930 DATA 55,45,46,45,44,46,53, 

63.63.63.39.33.0 
1940 REN •• SP2 •• 

1930 DATA 53,63,62,63,60,62,55. 

43.43.45.37.33.0 

1960 REN •• ANPERCQNANDOS 
1970 DATA 201,82,240,22,201,76, 
240,39,32,248,230, 142,83,3.3 
2, 190,222,32,248,230. 142,84, 
3,76,85,3,230,184, 160,1.162. 
0,138.24, 105.1.208.252. 141,4 
8. 192.232.224,21.208,242.96 

1980 DATA 230,184,169,0,133.255 
, 169,80, 133.254, 169.0. 141,48 
, 192,238.48. 192,206,48. 192, 1 
66. 255, 202. 208, 233. 198, 254, 2 
40.5.230.255.76,57,3,96 
1990 DATA 0,0,173,48,192,136,20 
8.5,206.84.3,240,9,202.208,2 
45. 174,83.3.76.83.3.96 
2000 REN •• NIVEIS 
2010 DATA " 1 . APPEND 1 1", "2, PR INC 
I P I ANTE " , " 3 . NED 1 0 " , " 4 . GUARD l 
AO". "3.PROFISSIONAL" 






At* 






Atlantis 
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trs-color trs-color trs-color trs-col 



Tron 

Henio de Araujo Bezerra 



Esta 6 uma versSo, para a linha TRS- 
Color, do programa “Ciclotron: supere 
esta barra!”, publicado em MS n? 28. 
Na competi^Io, existem dois jogadores 
(urn vermelho e outro azul) que tentam 
pcrseguir um ao outro sem se chocar 
com as barreiras. 0 jogador vermelho 
(a esquerda) opera com as teclas “Q” e 
“W”, para virar k esquerda ou a direita, 
respectivamente; enquanto o jogador 



azul (d direita) faz o mesmo com as te- 
clas “ -e- ” e “ -► 

Ao executar o programa, aparecera o 
menu com as op^dcs de dificuldade, que 
vSo de “Iniciante” a “Tron”. A medida 
que aumenta o nivel de dificuldade, 
maior 6 a velocidade do jogo (grandes 
velocidades foram obtidas gramas ao As- 
sembler 6809). 0 sistema central do 
jogo 6 feito em linguagem de maquina 



e esti contido nas linhas DATA. Uma s6 
modifica^ao poderd custar um mau fun- 
donamento do programa. 



Henio de Araujo Bezerra cursa engenharia eld- 
trice na UFRN. £ autodidata em BASIC e As- 
sembler 6809 e nas boras vagas faz jogos para 
a I inha TRS-Color. 



> TRON • 
3 * • COLOR 64 • 
« 'I H*ni o B mtmrr* • 
3 

10 CLS0:PR1NT0203, *•••••••••••*» 

SPRINT0233, "• TRON •'»:PR1NT0 
267, -••••••••*••-! SSCREEN0, 1SCLE 

AR200, 6H6FFF :FOR E-6H7H00 TO IM7 
128SREADA*SP0KEE,VAL<*6H-*A*> SNE 
XT 

20 GOSUB70tPaKE6H3Fl,0SPOKE6M3F2 
, 0 : POKELH3F 4 , 0: POKEIH3FS, 0S GOT08 

0 

30 DATA BD, A1.C1.27, 11, B7 , 3,F6,8 

1.31.26, B,7A,3,F8,26,3.C6,4,F7.3 
, F8, 39. 81 ,37, 26, 10. 7C, 3, F8.F6, 3, 
F8, Cl, 5, 26, 3,C6, 1,F7,3,F8,39,B1, 

8.26, B,7A,3,FE,26,3,C6,4,F7,3,FE 
, 39, 81 , 9, 26, F , 7C, 3, FE, F6, 3,FE . Cl 
,5, 26,5. C6, 1 , F7, 3, FE, 39 

40 DATA 7F,3,F3,BC,3,F4,8D,AA,30 
, IF, 26, FA. B6, 3, F6, 81, 3, 26, 1,39, F 
C, 3, F 8, FE. 3, FA, 8D, 66,F7, 3.F9.FF , 
3,FA,FC,3,FE,FE,3,FC,8D.38,F7,3, 



FF,FF,3,FC.8D,7A.B6,3,F3,26,DC,7 
C, 3, F 2, 26, 3, 7C, 3, FI, BE, 3, FA, B6, 3 
, F9, B7, 3, F7, C6, 3, BD, F , BE, 3,FC,B6 
,3,FF,B7,3,F7,C6,2,BD,2 
30 DATA 20.A8, IC.FE.Bl, 1,27, 16,4 
A, 39, 39, 4A, 26, FB, 86, FC, I A, 1 . 7A, 3 
,F7, 49, 49, 7A,3,F7, 26, F9. 20.2, 86. 
FC, A4, 84, A7, 84, E A, 84.E7, 84, 39,81 
,1,26,3,33,30,33,30,39,81,3,26,7 
, 33, 4F, 33, 4F, 33, 42, 39, 81, 2, 26, 8, 
3A. 26, 4, C6, 4, 33, 41 , 39, 3C, Cl , 3, 26 
,4,C6. 1.33.3F.39 

60 DATA BE,3,FA.A6,84,F6.3,F9,BD 
, 18, 27 ,6, 7C, 3, F3, 7C, 3, F3, BE, 3.FC 
, A6, 84,F6,3,FF, 8D, 6, 27, 3, 7C, 3, F3 
, 39,5A. 27, 5, 46, 46. 3A, 26, FB,84, 3, 
81,1,39 

70 FOR P-1 1 TO 29 S TEP2: POPE < LM3 
FI ♦ <P- 1 > /2) , VAL ( -LH- *111 D* < *00000 
1021D6F1D700102-, P-10, 21 >:NEXT:R 
ETURN 

80 cls:print0h,-» tron «-:PR 

I NT , , " OPCOES DC JOQOS ’SPRINT, , • 
<1 — APREND1Z*.,* <2>-CALOURO", . 
* <3>-£STAGIARIO-,,* <4>-PR0FESS 



OR-,,* < 5 > -PROF I SSONAL " , " <6>-TR 
0N-:PR1NT,,* OPCAO NUNEROS 7*1 IP 
OKE 1 37 , PEEK I 1 37 ) - 1 
90 AB-INKEVBS IF A4- * 1 * OR A0>*6" 
THEN 90 ELSE PRINTABsFORC-l TO 
200: NEXT 

100 C— 2»<A*-*6*>-10»tA*--3*)-20 
•<A*--4*)-40»<A*»*3*>-604(A*--2* 
) -90» < A*- * 1 " ) : POKE6N3F3. Cl J I -01 J 
2-0 

110 PNODE3, 1 : PCLS2: COLOR 1 :L INE (0 

. 0) - (233, 191 ) , PSET , B 

120 SCREEN 1 ,0: FOR S-l TO 3SFORC- 

1 TO200: *XT : SOUND80-S.3: NEXT:EXE 

C6H704E: C-PEEK (6K3F31 : FORR— I TO 

300:NEXT:CLS 

130 IF C-3 Tr«N PRINT068.-* AMBO 
S BATE RAM" : PR l NT 01 64, * A PONTUACA 
0 ESTA ACUMULADA. -SF0RC-1 TO 100 
0 : NE X T : GOSUB70: GOTO 1 1 0 
140 IF C-0 Tf«N 200 
130 G-236»PEE»:ifcK3Fl>-PEE» <BM3F2 
»;IF C-l THEN PRINT,,* O JOGADOR 
AZUL BATEU' • ' *S J 1-J1 »G: ELSE PRI 
NT,,* O JOGADOR VERMELHO BATEU'' 



•*SJ2-J2*B 

160 PRINT,,* PONTUACAO: “SPRINT* 
-0«*<191>- - * J 1 S PRINT* "CHRBU 
73 > * - * J2 

170 IF JK2000 AND J2C2000 THEN 
FOR E-I TO 1 000S NEXT :GOSUB70: POP 
ELH3F I , 0 S POKEIH3F 2 . 0 : GOTO 1 1 0 
180 IF J1-J2 THEN PRINT"EHPATE"S 
ELSE PRINT- VENCEU:’SIF J1>J2 TH 
EN PRINT" VERMELHO. *S ELSE PRINT" 
AZUL.* 

190 LIFCINPUT- OUTRA <S/N>7 -|R* 
: IF R*--S- THEN 20 ELSE IF R*< >* 
N* T1CN 190 ELSE 230 
200 PRINT,, TAB 191 -• BREAK •* 
SPRINT,,- 0PC0ESS -SPRINT, , - < I >- 
CONTIMUA-, . - <2 --RECOMECA", , " <3 
-FIN DO PROGRAMA -I PR I NT,,* OPC 
AO NUMEROS 7* 

210 ON VAL ( INKEYSI GOTO 220,20,2 
30SGOTO210 

220 POKE6H3F6, 0S PHODE3, 1 S SCREEN 1 
.0SGOTO120 

230 POKE 1 1 3 , 0S E XEC40999 



Tron 








• Edi^oes bimestrais do Compuclub News, com noticias do mundo da 
Informatica. programas de fogos. aplicativos e dkas especiais para o 
seu MSX. 

• A cada 30 dias, programas amplamente documeniados. com seus 
manuals de instru^io. 

• Livre escolha de softs. 

• Sorteios mensais de micros e outros premios. 

F ATINCAO: No COMPUBLUB nao hi mensalidadcs. 

Nao perca tempo! Solicite, ainda hoje, informa(6es detalhadas acerca do 
COMPUCLUB. Nio se esque^a, porem, de mencionar o tipo de 
equipamento que voc6 possui. 



desfrutor do 



Finalmente, os usudrios da 
linha MSX jd jHidern 
melhor cluhe de soft do Brasil. 



Veja tudo o que voci tent a ganhar: 
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HO TBIT. EXPERT. ETC 
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Sempre Novidades 

COLOR 

CP-400. Color 64. MX 1600. etc 

ADVENTURES 



MSX 

LANQAMENTOS 



PD011 F'D 
P0 013 D 
P D 021 f 
PD 017 F 'D 
PD 019 F/D 
PD 020 F/0 
PD 022 F/D 
P D 023 0 



Star Trader 
Dallas Quasi 
Syzvgy 

Tha Martian Crypt 
Trek boar 
Vortex Factor 
Seequest 
Estupro 



F/0 Brewmastar 
F/D C bam bars 
F/D Cofcjmb*' Devwus i 
F/D Cro*vPa»*ar 
F/D Downlend 
D Dragon Slow 
F/D Fghte. P*ot 
D CJ hanaBwene 
F/D Gold Runner 
F/D Jaws 
F/O Karat* 

F/D Sex Ketg 
D Knock Out 
F/D MartttUate 
F/D MoOutaMan 
F/D Mr Og 
D Ona on Ona 
F'D Pagasus 
F/D GoM Rumor * 

D Prtstop* 

F/D Shock Troopar 
F/D Shookng GHn 
F/D Staaar LtNkne 



PP 009 F 0 betaine *ia>a 
PP010 F,D Bnoga 
PP011 F D Gomoku and Raniu 
PP 012 F/D Monavopc*. 



PS 004 F/0 Booing 747 
PS 005 F/D P 51 Vjstang 
PS 006 F SR-71 



48 00 Programas onde vocft respond* 

as perguntas a medida em que 
*8 00 vive uma aventura emocionante. 

•■W Alta resolugSo grdfica. 

48.00 

48.00 Agora am portugu*s 

200.00 Veriko pornogrkfica do ad vantura Cnma. 

JOGOS 

48.00 A|uda o garcom a sarvir as carvaias 

48 00 E sealants Urn dos ma« bomtoa a movimantedos logos da labmnto 
48.00 Sobravoa o mundo mimigo dalendondo sua nava. 

48.00 Tent a prntar o video combat an do os ebstos qua t ant am impotkr . 

48.00 Ultrapasse obatkeuloa a apanha os tesouros otcapando dos pngos 

128.00 Advantura mesdado com labmnto. EscapoonalM 

48.00 Mats urn combats a*rao. bom programa no g*naro 

128.00 Foca uma mcurxko ao tarntbno mmvgo para recuperar sou baIJo 

60.00 A grande coqueluche nos EUA. Criaram-aa at* Clubas de usukrtoa. 

48.00 EsMo packman. Coneiderado o malhor dales Vock aia Bbulntos 

60.00 A grands sonsapko S6 vando para aar^^^ 

48.00 Varsio pornogrkfica do programa The nnq 

140.00 Lutadaboxa Tridimans»on*», #maac>onai d t 

60.00 Indescrrtlvel Lab.rmto»ldimansional Um dos methores do * > 

80.00 Outraseniatko Dos mars vantkdos nos ■ 

48.00 Aiude ocoalbo a corner suascanpuras 



i de basquate murtpc 



4B 00 Similar ao Buzzard Bart Gckfx 
KSo 60.ro Mats aventura* para quern ik c 

ingiks 140.00 Empolgvte orndac/V|haJ 






140.00 Empoigai » orndac/miiiila li i to a troca de pntud- At*2|0g 

60.00 ConskJsradn lunto c Marine Mate, os doa roe ■ ores prog, doafto 

48.00 Galertadatiros da um parque de diversft* MuUoborvo 
48.00 Protaja saa combo 10 do ataqje dos aienigara* 

TRADICIONAIS 

100.00 a tmSdonal. em aita resoiucko Lm g aa m talli 
48 00 Pargosamanies deste upo da Jogo 
48.00 Tradlelonal passaiemno otienlal am tatiuleiro 
48.00 O banco imobfflino Qua voq* jaconhece DivwbdWmo 

simulado4es 



Ingiks 80.00 Simulador Catena da Boeing 747 
Ingiks 10C 00 Simuladat dkvftb c combats antra dc 
Port 80,00 SiDutmSot da v6o em tempo deguerra 



i Boeing 747 

combats antra doa comput ou contra o i 



APLICATIVOS 

OS 9 S«t Operscional ingiks 800.00 Sistame oparacional multiuaukno. multitarefa am real uma. 



PA 031 F/D CanataOkca 



Canata Ones Port 250.00 Light pan Acompenhs software a manual 

Connote de Assumes Port 500.00 Capacidada para 900 assawitea 

Controls de Estoqua Port 500.00 Capacidada para 630 tans 

Desk mats Irglke 500.00 Sist mtagrado composto de sea program** basaado no Lotus 1 .2.3 

Pro Color Fka Enhanced Ingiks 400.00 A grande sensacio em bancoe da dados 

Mmanaa port. 300.00 0 grande Cocomax agora com com rale da tovstek 



PU 021 D Disk Dnve Analyzer 
PU 022 F/D HI RES II 
PU 023 D ML Basic 
PU 024 0 Piretector 
PU 025 F/D Tapedupe 
PU-027 F/D Utikty Routines 



UT1UTARIOS 

Nko 300.00 Analisador da luncionamanto de drives com vknos tipos de taste 
ingiks 120.00 Transforms o video da sau color para alta rasducko Bam verskM 
Ingiks 400.00 0 mais poderoso compilador 

Ingiks 360 .00 Potente protetor de programas cnados por voc* Nmgukm sb re 
Nko 280 00 Duplicador de litas Dupiica fitas protegKlas. menos da Micromao 
Ingiks 200.00 28 rotmas utkrtkriaa para saus programas Agora am fits 






Important a. 

Os programas qua tan bam 
opc3o F ou D estSo com 
seus pregos na versSo 
Fita. Para aquisigio em 
Disco, anexar C/S 80.00 
de Disco e Embalegem. 



a 



Fapa seu pedido pelo correio, para o enderepo abaixo, anexando 
Cheque ou Vale Postal e receba, SEM MAIS DESPESAS, 
em aproximadamente 15 dias. 



BOULDER DASH - Em labinntos pengosissimos. voc* 
deve escavar em busca de diamante* Tome cuidado para que 
as pedras nSo caiam em sua cabega - CzS 70.00 — F 

SUPER CHESS - Um super xadrez - CzS 70.00 - F/D 
PING PONG - Sensacional jogo em 3 dimensdes — CzS 
70.00 - F/D 

VIE AR RUNG FU I - Lulas de Kung Fu em um (OQO 
emocionante - CzS 70.00 — F/D 

VIE AR KUNG FU II - Mais alguns desafios para o "gran 
de Lee" - CzS 70.00 - F/D 

LAZY JONES - 18 logos em um jd programa - CzS 
70.00 - F 

DISK WARRIOR - As aventuras do filme "Tron" - CzS 
70.00 - F 

BLAGGER — Pegue os objeto* e as chaves dentro de 
pen go sos labinntos - CzS 70.00 - F 

PREDIO ASSOMBRADO - Escale o ediflcio enquanto 
obietos caem sob re voc* - CzS 50.00 — F/D 

FUNCKY MOUSE - Ajude o ralo a pegar os queiios e 
fugir dos gatos — CzS 70.00 - F/D 

MAXIMA - Alienigenas atacam sua nave. Voc* deve 
defender se. Vines fases - CzS 70.00 - F 

ALIEN 8 — Um logo tridimensional. Em uma base espacial. 
voc* deve xpeonstruir um re at or a fim de que seja possivel haver 
vida no luqar Inumeras situagdes se apresentam CzS 70.00- F 
GOONIES Um dos melhores jogos da linha MSX Aven 
turas do filme Goonies". Vkrias fases — CzS 70.00 - F/D 

TENIS -1 Uma verdadeira partida de t*nis. Tridimensional 
CzS 70.00 -4 F/D 

KING'S VALLEY - Percorra o interior das pirdmides em 
busca de tesouro* fugindo das mumias - CzS 70,00 — F/D 

ESQUADRAO ALFA - Tridimensional Levante vdocom 
a sua nave e combeta os inimigos em outras galkxias Depots 
aterrisse para reabestecer - CzS 70.00 — F/D 

ELEVATOR ACTION - Igualzinho ao do Fliperama 
Eli mine os espides e pegue as maletas escondidas Depots fuja 
em seu carro — CzS 70.00 — F/D 

FISCAL DE ESTOQUE - Um )ogo de inteligfencia. Or- 
ganue o estoque de um armaz*m. Um -verdadeiro quebra-ca- 
bega - CzJ 70.00 - F/D 

\ CLASSIC ADVENTURE - Adventure convencional - 
somente textos em molds - CzS 70.00 — F 

RED MOON - Lmdo adventure com grificos em alia 
resoiugEo Todo em ingiks — CzS 70,00 — F 
0 SHARK HUNTER - Defenda o seu emprego. a sua 
criacdo de peixes e sua vida. nest a inter ess ante aventura - CzS 
70.00 - F 

MON - Disassembler/ Debugger - CzS 150.00 - F/D 
GEN — Editor assembler — CzS 150,00 — F/D 
PASCAL - Compilador pascal - CzS 150.00 - F 
SIMPLE - Editor Assembler /Disassember 0 unico com- 
pleto — Manual em portuguSs - CzS 250.00 — F 

JA conhecidos 

ANTARTIDA ADVENTURE - CzS 50.00 - F/D 
KEYSTONE KAPERS - CzS 50,00 - F/D 
GALAGA - CzS 50.00 - F/D 
LUNAR - CzS 50.00 - F/D * 

PADEIRO MALUCO - CzS 50.00 - F/D O 
GALAX - CzS 50.00 - F/D o 

ROAD FIGHTER - CzS 70.00 - F/D q • 

COSMO - CzS 50.00 - F ° 

CANNON - CzS 50.00 - F ^ CC h 

COELHO MALUCO - CzS 50.00 - F ** 2 

DIZZY BALL - CzS 50.00 - F 5 U- UJ 

FLIPPER - CzS 50,00 - F/D < — K 

FAIXA PRETA - CzS 50.00 - F (J O 

BOEING - CzS 70.00 - F < 

POLAR STAR - CzS 50.00 - F O « 1 

SHADOW ADVENTURE - CzS 50.00 - F Q LJ — 

SUPER COBRA - CzS 50.00 - F/D D 

TURBOAT - CzS 50.00 - F/D — 7^ f-j 

MR. CHIN - CzS 50.00 - F/D Q U* [Tj 

FROGGER - CzS 50,00 - F/D m Ul “ 

ARVORE MAGICA - CzS 50.00 - F/D n 3 D 

OLIMPIADA I - CzS 50.00 - F/D rj Ul 

OLIMPIADA II - CzS 50.00 - F/D (/) 7Z. (/) 

COLUMBIA - CzS 50,00 - F/D Q 

> PITFALL II - CzS 50.00 - F/D 5^0 

RIVER RAID CzS 50.00 - F/D t O 

CORRIDA MALUCA - CzS 50,00 - F/D TZ 

DECATHLON - CzS 50.00 - F/D ^ ^ 

HIPER SPORT I - CzS 50.00 - F/D jf. Z 3 

HIPER SPORT II - CzS 50.00 - F/D U^ 

HERO - CzS 50,00 - F/D CC w 

LE MANS - CzS 50.00 - F (J 

GHOSTBUSTERS - CzS 50.00 - F (/> 

MACACO ACADEMICO - CzS 50,00 - F/D QJ 
MALA POSTAL - CzS 120.00 - F 
TASWORD - CzS 120.00 - F 

MAGIA - CzS 50.00 - F 4 

GRAFICOS BIDIMEN SION AIS - CzS 70.00 - F/D 
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Se voce possui um MSX ou ZX Spectrum, aqui esta a sua chance de ser 
util ao seu rei. Assuma o comando e defenda-o contra os inimigos. 



Trafalgar 

Frederico dos Santos Liporace e Fernando Leibel 




T rafalgar 6 um jogo do tipo war- 
game dispulado por duas pessoas 
que tcrao a missao de comandar 
um complexo militar composto 
de infantaria. cavalaria e uma esquadra. 

Lie foi dcscnvolvido originalmente para o 
microeomputador TI-99/4A c depots adapta- 
do para as linhas MSX e ZX Spectrum (TK 
90X), este ultimo com no mi'nimo 48 Kb, 
podendo tambem ser jogado com joystick. 



MONT RNHR 5 



DESCRIQAO DO JOGO 

O jogo e composto por um tabuleiro em 
duas partes, a terrestre e a mari'tima. A parte 
terrestre <* represcntada em quadriculado e a 
mari'tima, azul, scndo a primcira subdividtda 
em tres regimes: 

. Vermelho * tcrritdrio fiances 

. Branco - zona neutra de com bate 

. Azul • tcrritdrio ingles 

A figura 1 identifica os elemcntos que 
com poem o jogo. A seguir, analisaremos cada 
um deles: 

Portos de embarque: sao quatro, scndo as 
posi^oes de embarque representadas pclos tres 
quadrados situados em volta do porto, nos 
quais as pt\as a serein embarcadas devcrao 
cstar posicionadas; 

Montanhas: possuem a Colorado magenta; 

Arvores: esrfo espalhadas por todo o ta- 
buleiro; de Colorado verde e podem ser pula- 
das pela cavalaria; 

Castclos:existem dois, um cm cada tcr- 
ritdrio. Voce ganha o jogo quando coloca 
seu rei dentro do castelo inimigo; 

Parte mari'tima: cor azul; 

Rccifes: estao localizados nas regides de 
contato entre a terra e o mar; 

nhas: sao representadas na figura em cor 
magenta. 

No ini'cio do jogo, cada jogador .conta 
com 22 pc^as. Para mclhor identifica^ao, 
a figura 2 mostra o posicionamento daspe^as 
que compdem o complexo militar de cada 
um dosjogadores. 



NRUIOS 



a sete. Toques de sino indicam o final da sd- 
ric de lances do jogador (no TK90X serf 
ape nas um beep); 

3-0 lance 6 dado movimentando-sc 
o cursor com as setas e colocando-o sobre a 
pe?a a ser movida. Digite a seguir 0 (tecla 
ENTER no MSX) e depots repet imos o mes- 
mo procedimento para a posi^ao de destino; 

4 - As pe^as se movimentam de um-em- 
um espa^o, com exce^ao da cavalaria que po- 
de andar dois espa^os; 

5 - Os lances sao sempre na vertical ou 
na horizontal, nunca em diagonal; 

6- Os guardas-reais nflo saem de seu 
tcrritdrio; 

7 - Os navios nio se movimentam jun- 
to a costa ou recifcs; 

8 - A cavalaria 6 a dnica pc^a com po- 
der de pular drvores. 



Marcha funebre ou hino do pat's - morte 
de uma pc^a; 

Tiro-dc-canhao - no ataque naval; 

Sons finais - quando um dos exercitos 
sai vitorioso. 



MODO DE ATAQUE 

Terrestre: no ataque terrestre existem pe- 
Cas mais fortes e pe^as mais fracas. Para matar 
uma pe^a, e neccssa'rio ccrca-ta com forsas 
mais podcroas. 

Para facilitar a sua comprecnsao, a figura 
3 mostra a posi^ao de uma pe^a a ser atacada 
(indicada pelo •) e os locais em que os atacan- 
tes deverao estar posicionados para elimin^- 
la (indicados pelos numeros de 1 a 4). 

f important e observar que o mi'nimo para 
matar cada pe^a 6: 

Rei - qualqucr pe^a, individuabnente. 

Guarda Real - apenaso rei. 

Cavalaria - 1 infantaria. 2 cavalaria ou 1 
guarda real. 

Infantaria - 2 cavalaria, 2 infantaria, 1 ca- 
valaria e 1 infantaria ou 1 guarda real. 

Roteiro para ataque terrestre: 

No MSX: 



REGRAS DO JOGO 



SONS DO JOGO 

Sino - indica o ini'cio do jogo e o termino 
da sdrie de lances de um jogador (no TK90X 
serf apenas um beep); 

Buzina - indica algum erro; 



1 O jogo e iniciado com os lances do 
lado vermelho (Franca); 

2 - Cada jogador tera direito a um nd- 
mero de lances seguidos, que varia de cinco 
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Figura 2 



1- Pressionca tecla 3; 

2 - Coloque o cursor sob a peca a ser ata- 
cada e pressione a tecla <RETURN > . 

3- Se o ataque for vitorioso, a pe^a 
atacada ira morrer, desaparecendo do tabu- 
leiro. 

No ZX Spectrum : 

Basta colocar o cursor sobre a pe?a a ser 
atacada e djgitar T (o que indicara urn ataque 
terrestre). 

ATAQUE NAVAL 

Os canhdes dos navios podem atirar para 
a esquerda ou direita, tendo um alcance ma- 
ximo de tres casas. O tiro nem sempre 6 cer- 
teiro mas, quanto maisprdximos estiverem os 
navios, mais facil sera' acertar. 

Para efetuar um ataque naval, siga a roti- 
na a seguir: 

No MSX: 

1 - Coloque o cursor sobre o navio ata- 
cante; 

2 - Digite 4 (canhao para a esquerda) ou 
5 (canhao para a direita); 

3- Croze os dedos. . . 

No ZX Spectrum; 

1 - Coloque o cursor sobre o navio ata- 
cante; 

2 - Digite A (canhJo para a esquerda) ou 
S (canhao para a direita). 

Obs.: o tiro iri atirwir o primeiro navio 
que estiver em sua trajetOria.por isso.cuidado 
para nao acertar um navio amigo. No caso 
do navio afundado so um cargueiro, as pe^as 
que ele estivo transportando serao dadas 
como desaparecidas (veja a obsova?ao no 
item modo de vitoria). 

MODO DE EMBARQUE 

Cada pat's possui apenas um navio capaz 
de realizar o embarque de tropas, portanto 



ele deve so muito bem protegido pelos na- 
vios de guerra da sua esquadra, pois todo o 
apoio mar-tora dc seu ex&cito depende dele. 

A figura 4 mostra a regiao dos portos on- 
de o navio pode aportar, pois o mar ali 6 
profundo. 

* Cada navio -transporte pode carregar at£ 
tres pe^as independente do tipo. O embarque 
pode so total (tres pe^as) ou parcial(uma ou 
duas) em cada porto. 

Para o embarque, siga a rotina a seguir: 

No MSX: 

1 - Posicione as pocas a socm embarca- 
das nas poshes 1,2 e j (conforme mostra a 



figura 4), pressionando em seguida a tecla 1. 

2- Coloque o cursor sobre o navio- 
transporte c pressione < RETURN > . 

No ZX Spectrum: 

1 - Coloque o cursor sobre o navio - 
transporte; 

2 - Digite E (para Embarque) e pressio- 
ne < ENTER > 

Obs. 1: sd o navio cargueiro tern a capaci- 
dade de embarcar tropas. O aspccto dele nao 
difoe dos demais por motivos estrategicos. 
Para saber onde o seu cargueiro esta, digite 
6 (no MSX) ouC (no ZX Spectrum). » 

Obs. 2: um navio transporte pode seqiics- 




sort EDUCATIVO 
CFOUSOf I C/S 10000 



LOGICMX- »00 

logic super - ioaoo 

logic/especial - 80.00 
OONSAGRAOOS - saoo 
OFERTAI MA COMMA OE 3 T( 
TULOS DA StRIE LOGIC/ESPE 
CIAL GANME UM PROGRAMA DO 
MESMO VALOR. GRATI8. A SUA 
ESCOLHAI 



forth ci* toaoo 

RASCAL LB CiS 80.00 

Mcoocnn ciS saoo 

DISASSEMBLE A Cl 8 80.00 

LOG 1C- RILE 

(BANCO DE OAOOSI CiS 80.00 

LOGIC* TEXTO 

iPROCESSADOR OE 

TEXTO CiS 80.00 

RE R T CRM 

IGERfNCIA 

ADM IN 1ST R ATI VA Cl 8 80.00 



LX017 ALIENS 

LX019 BACK TO THE FUTURE 

LX034 BATTLE FOA MIDWAY 

LX007 BILMAA 

LX014 BOULDEA DASH 

LX022 BOXEUR 

LX0I6 BUCK ROGERS 

LX036 CHAMPION 

LX008 COLUMBIA 

LX 000 DECATHLON 

LX010 P-16 - FIGHTER FALCON 

LX002 GALAGA 

LX027 GHOSTBUSTERS 

LX011 GOLF 

LX016 GOONIES 

LX018 HYPER RALLY 

LX038 HYPER SPORTS III 

LX012 JUMP JET 

LX028 KING S VALLEY 

LX005 KNIGHT LORE 

LX030 KNIGHT MARE 

LX004 RUNG Full 

LX001 KUNGFU MASTER 

LX013 LAZY JONES 

LX003 LOOE RUNNER II 

LX039 MR DO 

LX02S P AC MAN 

LX030 PING PONG 

LX006 RAID ON B BAY 

LX021 RIVER RAIO 

LX 031 ROAD FIGHTER 

LX023 SOCCER 

LX024 TENIS 

LX032 WARROI0 

LX033 ZAXXON 

PROGRAM AS EM PITA 



LT124 ALAOIN'S CAVE 
LT016 ALIEN-8 
LT001 BOUNTY BOB 
LT007 BOOTY 
LT008 BASEBALL 
LT014 BOULDER DASH 
LT030 BASKETBALL 
LT034 BC BILL 
LT033 COMANDO 
LT027 CITY HALL 10071 
LT01B DUKES OF HAZZARD 
LT023 OEATH CHESS 8000 
LT127 DOMINO 
LT017 EVERYONE'S WALLY 
LT118 GUN FRIGHT 
LS1 17 GHOSTBUSTERS 
LT022 GLASS 
LT004 HUN TE R K I LLE R 
LTO3S HERBERTS 
LT01B IMPOSSIBLE MISSION 
LT028 KARATE KID IT JW.E.FJ 
LT002 MOON ALERTA 
LT013 MOON CRESTA 
LT038 MONTY IS INNOCENT 
LT02S NIGHTSHADE 
LT024 OLYMPICON 
LT003 POPE YE 
LT008 PUD PUO 
LT010 PROJECT FUTURE 
LT126 POKER DE OAOOS 
LT021 PYJAMARAMA 
LT026 POGOJOE 
LS01S rifle range 

LS001 RAIO OVER MOSCOU 

LT012 ROCKY 

LT031 ROBIN OF THE WOOD 
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OUAL O SEU EOUIPAMENTO 
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TRAFALGAR 



PROJETOS & SERVigOS 



Digitapao nao e mais problema 

pego enviar em pelo correio o servigo 

□ ^jglsavc □ 

CzS 45,00 CzS 18,00 

Programas de interesse MS n.° p£g. Valor 



Para isto estou enviando o cheque n.° 



Projeto MICRO BUG 

Sim, desejo receber 

a fita MICRO BUG, com cartfio de referenda, 
pela qual pagarei CzS 75,00 

Assinatura Anual 

□ Sim, deseio fazer uma assinatura 
anual da revista MICRO SISTEMAS, 
pela qual pagarei CzS 1 40,00 

_ no valor de CzS & ATI Edita 



ProfissSo 

Enderego 



Cidade 



Empresa 



Estado 



ATI EDITOR A LTDA 

Av.: Presidente Wilson. 165/1210 - CEP 20030 
Rio de Janero/RJ - Tel [021] 262-6306 



ASSINATURA 

Rua Oliveira Dias. 153 - CEP 01433 
SSo Paulo/SP - Tel. [Oil] 853-7758 



Tfuncoes das teclas 


MSX 
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GRAVAR 
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G 


EMBARQUE 


1 


E 


DESEMBARQUE 


S 


D 


ATAQUE TERRESTRE 


3 


T 


ATAQUE NAVAL (ESQ.) 


4 


A 


ATAQUE NAVAL (DIR.) 


5 


5 


MOSTPAR CARGUEIRO 


6 


C 



Figura 5 



continua^ao, foi credo o modo gravar. 

Para gravar cm fita a posnjao atualdo jogo 
e sufic rente pressionar a tecla 0 (zero) no 
MSX ou entao digitar G (gravar), no ZX Spec- 
trum. Observe que neste ultimo caso,o pro- 
grama pedira' uma confirma^ao, o que voce 
devera responder pressionando a tecla S se- 
guida de <ENTER > . 

Depois de gravar o jogo, voce tern a op<,ao 
de desligar ou continuar a jogar novamentc. 
Isso permite que nao sc perca um jogo intercs- 
sante devido a problcmas de cnergia elctrica 
ou outras razdes. 

Para recuperar o jogo gravado, basta es- 
colher a op<,ao continue jogo. No MSX, 
voce deve optar por V logo ao iniciar o pro- 
grama. Aten^ao, se seu micro for um Expert, 
digite SH1FT+V. Caso seu cquipamento seja 
um ZX Spectrum, digite R (de recuperar) 
seguidodeSe < ENTER > . 



MODO DE VITORIA 



Exist cm dois modosde veneer o jogo: 

1 - Colocando seu rei no castelo do adver 
sa'rio. Para isso, seu rei deve entar pela porta 
do castelo; 

2 - Matando o rei adversa'rio. 

Obs.: se o rei estiver a bordo de um navio 
e estc for afundado, o jogo nao estara termi- 
nado. 



Frederico dot Santos Liporace estuda no 
coldgio SSo JosS. no Rio de Janeiro. Ele 
possui um TK85 e um Color 64. Frederico 
desenvolveu a versSo de Trafalgar para o ZX 
Spectrum. Fernando Label curse o sexto 
peri'odo da Faculdade de Medicine de Tere- 
sdpolis. Junto com Frederico participa da 
equipe de desenvoh/jmento de programas 
da Ciberne Software. Fernando desenvolveu 
a versSo de Trafalgar para o MSX. 



A figura 5 apresenta uma tabela com as 
fun^des das teclas, tanto para o MSX como 
para o ZX Spectrum. 



CONTAGEM DOS LANCES 



Cada jogador tern direito a um certo nii- 
mero de lances seguidos (de 5 a 7), que e de- 
finido aleatoriamente pelo computador. Os 
lances sSo contadosda seguinte maneira: 
Movimento de uma pe^a - 1 lance 
Ataque terrestre - 1 lance 

Ataque naval - 1 lance 

Embarque/desembarque - 0 lance 
Gravar - 0 lance 

Mostra cargueiro - 0 lance 

Obs.: Lances errados nSo s£o contados. 



COMENTARIOS FINAIS 



Por ser um jogo muito envolvente, uma 
partida de Trafalgar podera se estender por 
varias horas ou ate mesno dias. 

Agrade^o a oolaborafao do meu amigo 
Lui's Ota'vio Gouveia que me cedeu o seu 
TK90X, o que facilitou o desenvoNimento 
das duas versdes aqui apresentadas. 



trar pc^as do adversa'rio se estas estiverem na 
po sKjao de cm barque. 



MODO DE DESEMBARQUE 



O desembarque segue a mesma rotina do 
embarque, modificando-se apenas o ultimo 
niimero digitado que passa de 1 para 2 (no 
MSX) e a lctra D de desembarque, no lugar 
de E (no ZX Spectrum). 

Obs.: se no momento do desembarque 
houver alguma pe?a nas posi^ocs 1,2 ou 3 
iFigura 4), essa pe«;a ira' sumir. 



MODO DE GRAVAR 



Para perm it ir que as posi^des do jogo se- 
jam guardadas cm fita, para uma posterior 



Figura 3 



FUNgOES DAS TECLAS 




Trafalgar (MSX) 



10 KEYOFF 

20 DIMVF < 7> : CL EAR 4000: HAKF ILES-2 
30 DATA 0,0,262. 196,220, 165. 175, 131, I 73 
, 196.65,0,0 

40 READ N, V ,VF(0>,YF'(l),YF(2).YF<3 

1.YF14) ,YF(3>,YF(6>,YF(7>,L.CM,K0Y 
50 D 1 HNAV (2,3) 

60 CLS:ON INTERVAL* 1 0GOSUB4670 
70 GOTO 4730 
80 GOSUB4830 

90 IF U«-“V“TMENNE*-">>LENDO-:BOTO3670 
100 KEYOFF :SCREEN1. 1,0: COLORI, 1. 1 
110 PLAYFR* 

1 20 REN 

130 DATA 48,08, 10,08, 10,08, 10.08,00, 4 
9, FE , FF , FE, FF , FF , FE , FF , 5A, 50, FF . FF , FF. 
FF.FF.FF.FF.SA, 119,24, 18.3C.3C, 18, 18, 1 
B.7E, 151,24, 18.3C.3C. 18, 18, 18.7E, 33, F 
F, 81. 81, 81. 81, 81, 81. FF. 128, FF. 81 .81 , 81 
,Bl,ei,ei,FF, 1 36, FF, 81. 81, 81, 81, 81, 81, 
FF 

140 DATA 40,08.1C,3F,7E.7F,FE,FC,38. 9 

6, FF , 7F , 3F, IF , 3F, IF, 3F . 4B, 97.2C.7E.FF, 
7F,FE,7C,7E,FF, 98.FF.FE, 7E. 7F.FE, 7C.FE 
, FF , 99,FF,FF.7F,3F,3F.7F,FF,FF. 124, FF 
, FF , FF, FF , FF , FF ,FF , FE , 125,D4,CA.FC,FF, 
FC, FE, FF, FF, 32. 2D.FF, 7F.FF.FF. 7F.FF, 7F 
150 DATA 34,7F,FF,7F,FF,FF,7F.FF,7F. 3 
3.FF.E7,C3,ei,Bl,C3,£7.FF. 116,38. 10, 10 
. 38.7C.7C, 18, 7E, 148. 38. 10. 10. 38. 7C.7C 
, 18, 7E, 41, IF, 18. 18, IF. 18. IF, 18, IF, 112 
,04, 24, 24, 24, 24, 2£, FF , 7£, 100, FF.FF , FF, 
FF , FF , FF , FF , FF , 101 , FF, FF. FF , FF , FF, FF, F 

E. 95 

160 DATA 102,34.FE.FE.FE.FF,FC.FC.AA. 
I03,D4,CA.FC.FF.FC.FE. FF.FF. 104.44.EF. 
FF.FF, FF.FF, FF.FF. 105, 88. DD.FF. FF, FF , 3 

F. 7F.92. 106, FF.FE.FF.FC. F8. FF , FC, FF , 1 

07, FF , FF , FC, FF, FC, FE, FF . D5, 108.3F.7F.3 
F,FF,3F,EF.FF,53. 56.FF. 7C. FF.FC, 3F, FF. 
7F.A9 

170 DATA 37,01.5l,D5.7F.FF,3F,7F,FF. 1 
20, FF.FF, FF.FF, FF.FF, FF.FF, 121.FF.FE.F 
F, FC, F8.FF, FC, FF , 122, 44, EF . FF , FF, FF , FF 
, FF.FF, I23.FF.FF,FC,FF,FC.FE,FF,D5, 36 
.FF.FF, FF.FF, FF.FF, FF.FF, 37, 5A, FF, FF, F 
F, FF.FF. FF.FF, 38. 00. 00. 00. AA, 55, 00, 00. 
00 

180 DAT A39, FE. FF , FE , FF, FF , FE, FF, FE, 129, 
00. 0C, IE,3E,7A,7B, 38, 7E, 152.00.0C, 1E.3E 
.7A.78.38.7E. 130.3C, 18. 18, 1B.BD.FF.99, 1 
B, 153, 3C, 18. 18, 18, DD.FF, 99, IB. 144,20,24 
. 24, 24. 24. 74, FF.7E, 113, 04, 24, 24, 24, 24, 2 
E , FF . 7E, 1 1 4, 04, 24, 24, 24, 24, 2E, FF , 7E , 1 IS 
, 04, 24, 24, 24, 24, 2E.FF 

190 DATA7E, 1 45, 20, 24. 24 , 24 , 24 , 74, FF . 7E 
, 1 46, 20, 24. 24, 24, 24. 74, FF.7E, 147,20,24, 
24, 24, 24, 74, FF, 7E, 2. 81,81,61,81, Bl, 81, 8 
1 , 81 . 3, FF , 00, 00 . 00, 00, 00, 00, FF 
200 FORT-1TO54:READA:FORS*0TO7:READB«: 
VP0KE8*A*S,VAL ("t.H-*B«> : NEXTS: NEXTT 
210 PLAVIN* 

220 FORT-0TO767IREADA: IF A-0THEN240 

230 VPOKE6144*T,A:NEXT:GOTO330 

240 READ B,C:F0RS-1T0C:VP0KE6I44*T,B:T 

-t*i:next:t-t-i:next 

250 REN 

260 DATA 08,08,119,0,3,26,151,0,08,4,02 
,35,36,36,39,0, 136,4,0,33. 18,02,0,08,4, 
02,36, 136, 136,39,0, 136,4,33,33,40,0,33, 

3.40.0. 33.6.40.33.33.40.33.02.0.08.4.02 
,36, 136,136 

270 DATA 48,0, 136,4,0,33, 15, 40, 33,33, 0? 
,0,08,4,02,35. 136, 1 36, 39, 0, 1 36, 4. 33, 33, 

40.0. 33.5. 108. 105. 105. 104. 104.103.0.33, 

4.02.0. 08.4.02.36.50.50.49.0. 136.4.33.3 

3.40.33.97.0. 33.6.99, 100, 106,0,33,4,02, 
0,08,4,02,0, 136,8,0,33,4,98,0,33,6,96, 1 
01,107 

280 DATA0, 33, 4,02,0, 08, 4 ,02,0,136,8, 

0,33,4,99, 104, 103,0,33, 11,02,0,08,4,02, 
0,176.8.0,33,4,96,100, 100, 103,0,33,3,40 
,0,33,6,02,0,08,4,02, 120, 120, 121,0,33,6 
,40,0,33.3,99, 100, 100, 104, 103,0,33,8,02 
,0,08,4,02, 120, 120, 121,0,33,8,40,33.96, 
0, 101,4 

290 DATA 102,0,33,7,02.0,08,4,02.120.12 
0, 121,33,33,40,33,40,0,33, 16,40,33,02,0 
,08,4,02, 120,120, 121,33.41,0,33,5,41,0, 

33.4.40.0. 33.4.40.0.33.5.02.0.08.4.02.0 
,120,3, 122,120,0, 122,5, 120, 125,33,40.0, 

33.3.40.0. 33.4.40.0.33.3.02.0.08.4.02.0 

, 120,11 

300 DATA 121,0,33,14,02,0,08,4,02,0,120 
.9, 124, 124, 123,0,33,3,40,0,33, 10,02,0,0 

8.4.02.0. 120.8. 121.0.33.5.40.0.33.3.0. 1 

28.8.02.0. 08.4.02. 120. 120.97.0. 120.5. 12 

1.33.41.0. 33.7.0, 128,8,02,0,08,4,02, 120 
, 120,96, 104, 104, 103,0, 120,3, 122, 120, 122 
. 125 

310 DATA 33,33,40,33,33,0,128,8,02,0,08 
.4,02,0, 120,3,99, 100, 107,0, 120,6.121.0. 

33.5.0. 128.8.02.0.08.4.02.0. 120.3.96. 10 

7.0. 120.7. 121.33.41.0.33.3.0. 128.3.32.3 

7.38.37.37.02.0. 08.4.02.0. 120.8.97.0.12 
0,4, 122, 120,0, 122,3,0, 1 28, 3, 34, 0, 1 28, 3, 

76.02.0. 08.4 

320 DATA 02,0,120.8,96,102,0,120,8,0,12 

8.3.34.0, 128,3,36,02,0,08,4,02,0,120. 18 



,0, 128.3,34,35,36.36,35,02,08,08 
330 VPOKE 8192, LH99 

340 FORT-lTOI6:READA4.B4:VPOKEai93*VAL( 
A4> . VAL(B*> INEXT 

350 DATA 1,239,2,206.4,94,12.94,9,110,1 
0, 110,3,239, 11,244, 13,79, 14, 143, 15,248. 
16, 143,5,252,6,252,7,252,8,252 
360 IF U4- "V" TMENGOSUB4 770: GOT 03690 
370 F0R8-1T044 
380 READ A, B,C 

390 VPOK E 61 43*32* (A- 1 > *6 ,C 
400 NEXT 

410 DATA 11,4,144,10,4,145,10,5,146,11. 
5, 147,24,20. 1 12,24,21, 1 13,23,21, 114,23, 
20,115,9,7, 152,9,9, 152,8,9, 152,9.11, 152 
,7,10, 152,7, 11, 152,5, 11, 152,3, 11, 152,21 
.22. 129, 19,22,129, 17,22,129, 19.23.129, l 
7,24. 129,18,24,129, 17,26, 129, l 7, 28, l 29 
420 DATA 9,8,153,9,10,153,8,10,153,8,11 
, 153,6, 11, 153,4, II. 153,2. II, 153,20,22, I 
30, 18,22, 130, 18,23, 130,17,23, 130, 17,25, 
130, 17.27, 130. 17,29.130,5.9, 148,4,10, 14 
8, 19,26,116, 18,27, 1 1 6, 4, 9, 151 , 19,27, 1 19 
430 GOSUB4370 
440 REN 

450 JOG-3* I NT (RND( -TINE) *3) 

460 CN-CN* 1 

470 IF CN/2" >INT (CM/2) THENVP0KEB192, tH2 
9 ELSE VPOKE8192.LHF4 

480 BEEP: F0RT-IT04: S0UND8. LB 000 10000: 
S0UND9, 6B000 10000: SOUND IB 1 0. LB000 10000 
490 SOUND 1 1 , 50: SOUND 12, 100: 50UND13, 0 
500 FORS- 1 T 0800 : NE XT: NEXT 
510 KB-INKEY* 

520 IFKBC >• -TMENK-ASC <K*I :GOTO540 
530 GOTOS10 

540 IF K-13THEI«1-INT((Y1*9>/8>:N-INT((X 

l *9) /Bl : D*33: QOSUB2960: 8OTOS80 

550 IF K747ANDK S3THENGOSUB2960: GOT0429 

0 

560 IFK >27ANDK< 32THEN6OSUB4330: BOTO310 
370 GOTO 2620 

380 T -VPEEK (6143*32* (N-1)*N> 

390 IFCW/2< >!NT (CH/21 THEN640 
600 IFT-I29THEN790 
610 IFT>! 1 1 ANDT < 1 16THEN930 
620 I FT— l 1 60RT ■ 1 190RT* 1 30THEN680 
630 6OTO2620 

640 IFT-153ORT-148ORT-131TMEN680 

650 IFT-132THEN790 

660 IFT>143ANDT< 148THEN950 

670 GOTO2620 

680 GOSUB2980 

690 C-l 

700 GOTO2270 

710 IFT-1 160RT ■ 1 48THENG0T 04800 

720 IFN-ITHEN730 

730 IFN-JTHEN780 

740 GOTO2620 

750 IFJ1O1TMEN740 

760 GOSUB2740 

770 GOTO 3640 

780 IF 1 1< >1 THEN740ELSE760 

790 C-2 

800 F-l 

810 GOSUB29B0 

820 GOTO2270 

830 IFJ1-1OR11-1THEN8S0 

840 GOT 02350 

850 I FM* I THE 11880 

860 IFN-JTHEN920 

870 GOTO2620 

880 IFJI-1THEN900 

890 IFJK ’2THEN2620 

900 GOSUB2740 

910 GOTO3640 

920 IF 1 1-1 THEN900 

930 IFI 1< 72THEN2620ELSE900 

940 C-4 

950 GOSUB2980 

960 GO TO 2500 

970 I FH— I THEN 1 000 

980 IFN-JTMEN1030 

990 GOTO2620 

1000 IFJK > 1 TMEN990 

1010 D-120 

1020 GOT 03640 

1030 IF 1 1< M THEN2620ELSE 1010 
1040 GO SUB 2980 

1030 PAR— VPEEK <6143—32* ( I- I ) *J ) 

1060 IFPAR— 1 1 30RPAR- 1 45THEN1080 
1070 GOTO2620 

1080 HG I -VPEEK <6143732* < 1—2) *J 1 
1090 TER-0 

1100 1FHGI -4 1 THEN1 1 20 
1110 GOT 02620 

1120 P-VPEEK (6143*32* ( 1-3) *J> 

1130 C-l 

1140 1FP-33THEN1160 
1150 GOTO1310 

1160 P-VPEEK (6143*32* ( 1-2) *J*1 1 
1170 C-2 

1180 1FP-33THEN1200 
1190 GOTO1310 

1200 P-VPEEK (6143*32* ( 1-2) *J-1) 

1210 C-3 

1220 1FP-33THEN3510 
1230 GOTO1310 
1240 GOTO2620 



1250 VP0KE61 43*32* ( I -3) *J , 33 
1260 SON DE ENBAROUE 
1270 PLAV-GEB" 

1280 VP0KE6143*32* < 1—2) *J* 1 , 33 
1290 VP0KE61 43*32* ( 1—2) *J- I , 33 
1300 GOTO510 
1310 TER- 2 

1320 IFPAR- 113THEN 1350 

1330 R-l 

1340 GOTO1370 

1350 R-2 

1360 GOTO 1370 

1370 NAV (R, C > — P 

1380 ONCGOTO 1160,1200,1250 

1390 GOSUB2980 

1400 P-VPEEK (61 43*32* ( I -2) *J ) 

1410 IF PC >41THEN2620 

1420 PAR-VPEEK (61 43*32* ( I — 1 > ♦ J ) 

1430 IF PAR- 113THEN 1480 
1440 IFPAR- I 45TMEN 1460 
1450 GOT 026 20 
1460 R-I 
1470 GOTO! 490 
1480 R-2 

1490 IFNAV (R, I )*NAV(R,2)*NAV(R,3) -0T)«N 
2620 

1500 GOSUB3S20 

1310 ’SON DE ENBAROUE 

1320 PLAY-GEB" 

1330 VP0KE61 43*32* ( I -3 > *J , NAV (R, 1 ) 

1540 VP0K-E61 43*32* ( 1—2) *J ♦ 1 , NAV <R, 2) 

1350 VP0KE6 143*32* ( 1—2) *J — 1 , NAV (R, 3) 

1360 NAV (R, l ) — 0 

1370 NAV (R, 2) -0 

1380 NAV (R, 3) -0 

1390 GOTO310 

1600 GO SUB 2980 

1610 P-VPEEK(6143*32*(I-I)*J) 

1620 IFP- 1 30THEN1710 
1630 IFP— 133THEN 1880 
1640 IFP— 1 29THEN20S0 
1630 IFP— 132TMEN2160 
1660 IFP-1 16THEN3420 
1670 1FP-148THEN33S0 
1680 IFP-1 19THEN3 140 
1690 IFP- 131 TMEN32 1 0 
1700 GOT 02620 
1710 GOSUB4210 
1728 GOSUB3620 
1730 0-0*1 

1740 IFP-1 48 THEN2640 

1750 IFP- 1 33 THEN 1 8*0 

1760 IFP-132THEN1820 

1770 IFO-4THEN1B00 

1780 GOSUB4270 

1790 GOTO 1720 

1800 I FS 1 *S2— 2THEN2640 

1810 GOTO2620 

1B20 S1-S1*1 

1830 I FS 1 — 2THEN2640 

1840 GOTO1770 

1850 S2— S2*l 

1860 IFS2-2THEN2640 

1870 GOTO 1770 

1880 GOSUB4210 

1890 GO8UB3620 

1900 0-0*1 

1910 IFP— 1 16THEN2640 

1920 IFP- 129 THEN 20 20 

1930 I FP- 1 30THEN 1 990 

1940 I FQ- 4 THEN 19 70 

1950 GOSUB4270 

1960 GOTO 1890 

1970 IFS 1 ♦S2-2THEN2640 

1980 GOTO2620 

1990 SI-S1*I 

2000 IFS1-2THEN2640 

2010 GOTO1940 

2020 S2— S2*l 

2030 IFS2-2THEN2640 

2040 GOTO 1940 

2050 GOSUB42 10 

2060 GOSUB3620 

2070 0-0*1 

2080 IFP- 1530RP-1 48THEN2640 
2090 IFP- 132THEN2130 
2100 I F 0-4 THEN 2620 
2110 GO8UB4270 
2120 GOT 02060 
2130 S1-S1*I 
2140 IFS1-2THEN2640 
2150 GOTO2100 
2160 GOSUB42 1 0 
2170 GOSUB3620 
2180 0-0*1 

2190 IFP- 1 30ORP- 1 48T HEN2640 

2200 IFP— 132TMEN2240 

2210 I FO-4THEN2620 

2220 GOSUB4270 

2230 GOTO2170 

2240 S1-S1*1 

2250 IF SI -2THEN2640 

2260 GOTO2210 

2270 P— VPEEK (6143*32* ( I — I ) ♦ J > 

2280 IFP-330RP- 1 280RP— 1 36THEN2340 
2290 IFT-1 19TMEN2320 
2300 IFT-131THEN2330 
2310 GOT 026 20 

2320 IFP— 48THEN3050ELSE2620 



MICRO SISTEMAS, novembro/86 



59 



TRAFALGAR 



333# :fp-3st 


2870 


I FP > 1 1 1 ANDP-; 1 1 60RP > 1 43ANDP 1 48THEN 


336# 


GOSUB3620 


?~4# mcsoToiii.i^ 


2900 




3370 


0-0*1 


2330 IP»-ITnC*C*44 


2080 


NEXT* 


3380 


1FP-1 19TMEN2640 


2360 IFMOJ 


2890 


GOTO2620 


3390 


IFO-4THEN2620 


2370 6"'4»l»/2 


2900 


FORT- 1 TOl 3: SOUNDT , 23: NE X T : FOFtS- 1 T 


3400 


GOSUB4270 


2290 (6I*3*22*i8-II*«> 


0500 


NE XT : FORS- 1 TOl 3: SOUNDS, 18:NEXT 


3410 


GOTO3360 


:zo0 iff-2-.«,c«i# 


2910 


fort-itos00:next: beep 


3420 


GOSU842 1 0 


2*00 C«30 


2920 


TI-INT(RND(I)*(X*1>>*1 


3430 


GOSUB3620 


2*10 


2930 


J-J-YE 


3440 


0-0*1 


2*20 SOTO 2*29 


2940 


IFTI—I THEN2640 


3450 


IFP- 13 1 THEN2640 


243# ONFGOTO8S0.72# 


2930 


GOTO2470 


3460 


IF 0-4 THEN 26 20 


244t) G-(N*J)/2 


2960 


PLAY-V13L64N41* 


3470 


GOSUB 4270 


2430 P-VPEEK(6I43*32*<H-1>*G> 


2970 


RETURN 


3480 


GOTO 3430 


2460 GOTO2390 


2980 


K*-INKEY* 


3.490 


KUY-l 


2470 JOG- JOG- 1 


2990 


IF ► *-" " THEN2980ELSEK -ASC <K*> 


3300 


GOTO2640 


2480 IFJOG-0TMEN440 


3000 


IFK-13THENI-INT1 <Yl*9)/8) : J-INT1 (X 


3310 


IF TER-0THEN2620ELSE 1 230 


2490 GOTO310 


1*9)78) :GOSUB 2960: GOTO3020 


3520 


IFNAVIR. 1 ) -0THEN7360 


2300 P-VPEEK(6143*32*(I-1)*J> 


3010 


I FK >27ANDK< 32TMENGOSUB4330: G0T029B 


3330 


IFNAV (R, 2) -0THEN3380 


2310 IFP-120THEN970 


0 




3340 


IFNAVIR, 3 ) -0THEN3600 


2520 GOT 02620 


3020 


Jl-ABS(J-N) 


3330 


RETURN 


2330 B-(M*I>/2 


3030 


Il-ABS(I-M) 


3360 


NAV (R, D-33 


2340 P-VPEEK(6I43*32*(G-1>*N) 


3040 


RETURN 


3370 


GOTO3330 


2530 FORS- 1 20 TO 1 23 


3030 


V-0 


3580 


NAV (R, 2) -33 


2360 IFP-BTHEN970 


3060 


N-0: INTERVAL OFF 


3390 


GOTO3340 


2370 NEXTS 


30 70 


GOSUB4300 


3600 


NAV(R,3>-33 


2380 GOTO2620 


3080 


CLS: SCREEN0, , 1 : C0L0R13, 1 


3610 


RETURN 


2590 G-(N*J>/2 


3090 


LOCATE6, 10: PR INT “••<OUER JOGAR DE 


3620 


P-VPEEK (61 43*32* <1 — 1*X)*J*Y) 


2600 P-VPEEK (6143*32* (M- I) *G1 


NOVO 


S/N>*»- 


3630 


RETURN 


2610 GOTO2330 


3100 


K*- INPUT* ( 1> 


3640 


VP0KE6 1 43*32* <M- 1 )*N,D 


2620 PLAY "L2N18V13" 


3110 


IFK*--B"TMEN3130 


3630 


VPOTE61 43*32* (I-I>*J,T 


2630 OOTO 310 


3120 


END 


3-660 


GOTO 2470 


2640 'INI CIO DA MARCHA FUNEBRE 


3130 


RUN 


3670 


GOSUB4340: BLOAD'CAS: " 


2630 PL A YMF* 


3140 


GOSUB42 10 


3680 


GOTO 100 


2660 FORT-ITO2000: NEXT 


3150 


GOSUB3620 


3690 


ME -PEEK (59999 ' ): FORT -60001 1 T039998 


2670 IFTI-1THEN2700 


3160 


0-0*1 


•♦MESTEP3 


2680 GOSUB2740 


3170 


IF P-133 ORP- 1 320RP- 1 48THEN3490 


3700 


PI -PEEK ( T ) 


2690 GOSUB2770 


3180 


IFQ-4THEN2620 


3710 


P2 -PEEK ( T ♦ 1 > 


2700 VP0KE(6I43*32*(I-i)*J),D 


3190 


GOSUB4270 


3720 


P3 -PEEK (T*2> 


2710 TI-0 


3200 


S 

8 

S 


3730 


VP0KE61 43*32* (Pl-1 > *P2, P3 


2720 IFMJY-ITHEN3050 


3210 


GO SUB 421# 


3740 


Nt XT T 


273# GOTO2470 


322# 


GOSUB3620 


3730 


TE-0 


2740 IFH< 10TMEN2730ELSE2770 


323# 


0-0*1 


3760 


FORT- 1 T02: FORS- 1 T03: NAV ( T , S > -PEEK ( 


2730 IFN. 12TMEN2760ELSE2770 


3240 


IFP- 1 30ORP- 1 290RP- 1 1 6THEN3490 


00500 '*TE>: TE-TE*l: NEXT: NEXT: JOG-PEEK (6 


2760 D-136 


3230 


IFO-4THEN2620 


0300 


♦TE* 1 > : CW-PEEK (60300 • ♦ TE*2) 


2770 IFM>16TMEN27B0ELSE2800 


3260 


GOSUB4270 


3770 


* 


2780 IFN721THEN2790ELSE2800 


3270 


GOTO 3220 


3780 


INTERVAL ON 


2790 D-128 


3280 


X — 1 


3790 


GOTO470 


2800 RETURN 


3290 


RETURN 


3800 


F-2 


2810 FORX-IT03 


3300 


X-0 


3810 


GOTO2330 


2820 IFU-33THEN4190 


3310 


Y— 1 


3820 


INTERVAL OFF : PORT- I T028 


2830 VE-X 


3320 


RETURN 


3830 


VPOKE6 1 43*T*2, ASC (MID* ( " IN IC I ANDO. 


2840 IFJ-YE< 1 TMEN2620 


3330 


Y— 1 


AGUARDE ALGUNS SEG“ ,T.1)> 


2830 P-VPEEK (6143*32* (I-1)*J-YE) 


3340 


RETURN 


3840 


NEXTT:ME-0 


2860 D-120 


3330 


GOSUB4210 


3850 


PORT - 1 T024 




GRAVE SEU PROGRAMA 
DEGRAVADOR PARA 
GRAVADORSEM 
PROBLEMAS 



COM FILTRO 
FCA 



ONDEVOCEENCONTRA 
TUDO PARA SEU TK: 




Elimlne erros de passagem 
de programas p / seu micro 

TECNISERVICE 

EQUIPAMENTOS ELETR6NICOS LTDA. 

DISTRIBUIQAO EXCLUSIVA 

gk MfiGMODf5Tf5 

informvticq ltd« 

Av. Paulista. 2644 — 8? Cj 86 

F: (011)255.7653 



• Interface para drive 

• Placas de expansflo 

• Mddulo CP/M 

• Interface para impressora 

• Placa 80 colunas 

+ 

• Monitoresde video /Drives 

• Exaustor / Modem 

• Filtro de llnha/lmpressoras 

• Formuldrios / Etiquetas 

• Arqulvos / Mesas 



Exato-Works para seu Exato- Pro 



E a mais completa linha 
de software para seu TK 

Microsoft, Supersoft, 
Cibertron, Mlcroldeia, 
Laserbit, Dlsprosoft, 

Mais de 300 titulos de apllcatlvoe e 



RECOMENDAMOS 

TK 3000 lie, o Apple lie de ultima geragfio 
E o novo TK 95 com teclado proflssional. 



gk MtfGMOPflTR 

™ informatict ltda 

Av Paulista. 2044 — 8® C| 86 

F: (01 1)255.7653 








3860 F0RP-1T029 

3070 B-VPEEK (6143*32* (T-1)*P) 

3880 IF 6>l HANDS-'. 120O8G>128ANDG- 1310RG 
> 1 43ANDG I54THEN3920 
3890 NEXTP 
3900 NEXT 

3910 ME»-“> GRAVANDO" S GOSIJB4 340: GOT0394 

• 

3920 ME-NE*3:P»:E60000'*NE-2 ,T:P»E600 
00 1 *HE- 1 , p: POK E60000 ' *ME . Q 
3930 GOTO3890 

3940 FORT- l T02 I FORS" 1 T03: POKE 60300 • *TE , 
NAV<T,S) :te-te*i: next: next: PO»:E<.0500'*T 
E* 1 , JOG: POKE60300 ' *TE*2 . CW: P0KE39999 • . H 
E 

3930 BSAVE " CAS : " , 39999 • , 60600 ' 

3960 PRlNT:PR!NT:PR!NT 
3970 PRINT" > VOL TAR JOGO- V 

>FIh -F":U*-INPUT*(1) 

3980 RESTORE 
3990 FORT-1T013 
4000 READA 
4010 NEXTT 

4020 IFU4--VTHEN3680 
4030 END 
4040 GOSUB2980 
4030 GOSUB4 1 40 
4060 I F DE -IT HEN2620 

4070 CI-l: CM*-"04242424242EFF7E-:FORS- 

0TO7:VPOFEB»P*S,VALCfcH-»HID*<CH*,CI,2) 

» :ci-ci*2:next 

4080 GOTO2B10 

4090 GOSUB2980 

4100 GOSUB4 1 40 

4110 I FOE- 1 THEN2620 

4120 CI-l: CH*-"202424242474FF7E“:FORS- 
0TO7: VPOKE8«P*S, VAL ( "8M” *MID* (CM*. Cl , 2) 
>:CI-ci*2:next 
4130 GOTO2810 

4140 P-VPEEK(6143*32«<1-1)*J> 

4130 DE-0 

4160 1FP>H1ANDP: 1160RP>143ANDP< 148THEN 

4180 

4170 DE- 1 
4180 RETURN 
4190 YE — X 



4200 GOTO2840 
4210 0-0 
4220 S2-0 
4230 Sl-0 
4240 X-l 
4250 Y— 0 
4260 RETURN 

4270 ONOGOSUB3280, 3300, 3330 
4280 RETURN 

4290 ON K-47 GOTO3820, 1040, 1390, 1600, 40 
40,4090,4690 

4300 ’ ROT INA DE SONS DE VITORIA 
4310 IF CN/2< >INT (CW/2) THENPLAYFR6 
ELSE PLAY IN* 

4320 K6-INKEY0: IFK*-*”TMEN4320 
4330 RETURN 

4340 SCREEN0: COLOR 1 ,13: LOCATES, 10,1: PR I 
NT- /PREPARE 0 GRAVADOR E PRESS I ONE RETU 
RN-I 

4330 BV*- 1 NPUT * ( I ) 

4360 IFASC (BV*> < M3THEN4330ELSE PRINT: 

PR I NT : PR I NTME * : RE TURN 

4370 RESTORE 4430 

4380 F0RT-IT08 

4390 READ A* 

4400 S*-S**CHR*(VAL("«.B"*A*>> 

4410 NEXTT 

4420 SPRITE* (l)-S* 

4430 X 1-1 27: Yl— 93 

4440 INTERVAL ON: RETURN 

4430 DATA 11111000 

4460 DATA 10001000 

4470 DATA 10001000 

4480 DATA 10001000 

4490 DATA 11111000 

4300 DATA 00000000 

4310 DATA 00000000 

4320 DATA 00000000 

4330 Cl -STICK <0>:PLAY“V6L64N40” 

4340 IFC1-I THENY 1— Y I -0 

4530 IFCI— 2THENY1 -Yl -B: X I — X I *8 

4560 IFC1-3TMENX 1-X 1»B 

4570 IFCI-4THENY1— Yl ♦B: X 1— X 1 *8 

4380 1 FC I — 5THENY 1 —V 1 *8 

4590 IFC1-6THENY1-Y1»8: Xl-Xl-8 

4600 IFCI -7THENX 1—X 1-8 



4610 IFCI -8THENY 1— Yl-8: X I —X I —8 

4620 IFXK23THENX 1-223 

4630 IFXH223THENX1-23 

4640 IFV1 7THENY1-1B3 

4630 IFY1 >1B3THENY1— 7 

4660 PUT SPRITES, ( X 1 , Yl 1 , CR, 1 1 RETURN 

4670 CR-CR*i: IFCR-16THENCR-0 

4680 GOTO 4660 

4690 IF CW/20INT (CN/2) THENPP-143 ELSE 
PP-113 

4700 FORT- 1 T04: CI-l : CH»- " 0424 2424 2E74FF 

7E” : FORS-0TO7: VP0KE8«PP*S, VAL < "6M"*NI D* 

(Ch*,ci,2>>:ci-ci*2:next 

4710 Cl— 1 1 CH*—" 2024 242424 74FF7E" • FORS-0 

T07: VPO» E8»PP*S, VAL ( "liH" *MID* (CH*. Cl , 2) 

) :ci-ci*2:next:next 
4720 GOTOS10 

4730 CLS:FORT«0TO38:LOCATET, i,s:printcm 
R* ( 219) I : LOCATE T , 23: PRINTCHR* (219) l : NEX 
T 

4740 FORT- 1 T02 1 : LOCATES , T : PR I NTCMR* ( 2 1 9 
>i:LOCATE 40,T:PRINTCHR*(219)|:NEXT 
4730 LOCATE 1,2: PRINT” MICRO SISTEMAS A 
PRESENTA: TRAFALGAR- :L0CATE2, 10: PRINT “P 
OR: FERNANDO LEIBEL “ : FORE- 1 TO1000: NEXT: 
LOCATE 2, 12:PRINT“mo6ic6:F.LIP0RACE“ 
4760 L0CATE2 , 1B:PRINT“ INIC1AR JOGO (N) 
~:L0CATE2, 19: PRINT“CONT INUAR JOGO (V) “ 
4770 FORT -2TO20: L0CATE28, T : PRINT”TRAFAL 
GAR- :U*- INKEY*: IFU*< >* "THEN* 790 
4780 BEEP:L0CATE28,T :PRINTSPC(9> :ne 
XT: GOTO 4770 
4790 GOT 080 

4800 JU-VPEEK (61 43*32* ( I- 1 > *J > 

4810 IF JU-33TMEN2620 
4820 GOTO720 

4830 FR*-"T 1 30N4500S1O4L4CL3CFFGGO3L4CO 
4L5AFFAFDL4B-L3GEF" 

4840 IN*--T140N4500SIO4L3GGGL2GL4FL3EFF 
FL2FL4ED" 

4830 MF*--T110O2N3500S2L3AL4AL7AL3AO3CO 
2L3BBAAA-A" 

4860 RETURN 



Trafalgar (ZX Spectrum) 



1 ClEAR 

2 DATA 

346234c235623S«a5cS '« 163025(534 0 
2 c a01163*iea''ia—ea-: la 134 10 a — 
64-42'9a-10' :2» '2'4010S000922 '2 ' 
4 13 C 9 'S3* 00 : 3 0116 > 1(4 18280534 01 ' 
318413400'SISCC 

3 data 2»:**:e:c00;09iii**0 

1800 34 4*88*7 15 : 01«i»O04 a *02 120 ' 82 
2'e5c211S( 322363 cc2CiO01t2100*01 
1 c Oa *t a e0c 90 1801s2 1:03*110040* a e 

0 c 9 

3 COTA 24183C3C181818-439101 
0387C 7 d87«Sc 181816*4! '9913000:1 
*3*'*78387* 

6 DATA 042424242424 07420242 
42424 74 f (7* ( (*'c36181c3*T( f 0818 

leieiaieio- 

* DATA 081008 1008 1008001 < 181 
81 '181 '181 ‘000000**330000000! 103 

'-*-"* C38" '4 ( ( (C ( 8 ( ( C " 44 * ' ( 
0 0(000000(00' (494 ■ 

8 DATA ((((((('((((((((•• 

80 DATA 3 3 3 12 .2.9.3.13,3.18 
82 DATA 1,13 1.17,1 24 1 2', 2 
28 4 13 3,13 8 12 9 8.9.10 9 2" 
10 IS 10 23.11,16.11,20 11.23 13 
18 14 17,16 18 

84 DATA 10 7,10.13 13.13.18.17 
86 DATA 8.3.3 11.14.3.14.11 2 
16.13 3 

88 DATA 11 6 1.11.8,3.16.12,1. 
18 14, 1.19 16.1,19 16.3 

89 DATA 3,19,6.4 22,3.3 22 3 4 
IS 1,3.13.2 6 li.3,7,13 4.8 16 

4.13.3.1.16.3.4.17.8.3.18.8.2.19 

.11.1.28.112 

90 DATA 7,6.7 8.7.10 3 10.3,10 
1.10 6,6,5.9.7.7,7.9,6.9,6.10.4 
10.2 10 0.10.18.21,16.21.14.21. 

14 . 23 14 , 23 14 2" . 16 . 22 , 13 . 2 3 , 17 
.21 13.21 13.22 14 22.14.24 14 . 
6.14 28 

91 DATA 22.19 148.2.1.23.19.14 
6.2.1,235 

92 DATA 0 .4 0 0.2.5 .4. 3. 4 7 
.4.7, .4,12. .3 9. .2,8. .4 

93 DATA 7. .3 7 , .5 7, .3. 7, .6.3 
.3,4 .4,8. .8.3 .5 3 .3. 3.. 6 . 4, ,3 

2 . .4 

98 GOSuB 9070 PAINT PAINT A 
T 10,3 BRIGHT l,PEDE»lNlNOO CA 
RACTEBES" BEAD •• P* a* C* 3* « 
• LET . *.**<C *.4(«* • 

99 REM REDEFINE CARACTEBES 

101 LET a * at 1 lET nu* *60 LET 
ana ■64985 GOSUB 9100 LET I.USB 

64953 

102 LET **.<* LET «na*USA * 
LET nuB.128 GOSUB 9100 

103 LET **••* LET nuB >62 LET 
«na *64870 GOSUB 9100 

290 RESTORE 10 CLEAR LET Al. 
22331 LET XT.0 LET (TO POKE 
2365! 8 DIM G*<2.3( DIN U(2.2> 
DIN C'2.3» DIM HI4> DIH H 1 4 1 
DI« "I 41 DIN J(4i 
292 FOR X.l TO 2 FOB Y.l TO 3 
LET G* (X . . 1 ■ K- NEXT Y NEXT X 



300 PEN HONTASEN DO TAB'JLEIRO 
303 BORDER 0 INK 0 PAPER 0 B 
RIGH* 0 

305 ClS PAPER 7 

310 -£T s * a H-nHMHMHHHnnHn HHHHH 
»0R N *0 TO 21 PRINT A 
T N 3 S * NE'T N 
: 3 let s*. ■■ 

■■■■■■■■ U*1 ”3 5 

“ f FOP N • 1 TO X PRIN- 
AT C.3 si'l TO Yl LET C«C.l NE 

*T N NE"T V 

320 INK 2 PAPER 7 LET i*. mkh 
hkxhhh FOR r.,0 TO 7 PRINT AT r, 

_3 i t NEXT B PRINT AT 03 ■ 

■ AT i ; A- 2 3 ^ NI S 

*33 G-^^ a* * 3 mmg* ink 

1 FOP n«l4 TO 21 PRINT AT n «: 
1* NE*T n PRINT AT 18.24 

■ A- 19 24 A" 20 24^* 



NEXT n PRINT AT 18.24 
_A- 19 2-4 » A- 00 24 

32? INK 4 FOR n *1 TO 19 BEAD 
x.l PRINT AT X . V. “L" NEXT 0 
330 INK 0 FOR 0*1 TO 4 READ 
,y PRINT AT a.y; J" NEXT n 
335 PAPER 0 INK 5 FOR n.l TO 
4 BEAD ».« X F 0 R *.l TO X PBI 
NT AT «.*-l.y M" NEXT * NEx- 

340 FOB n.l TO 6 BEAD V,Z ■ 
OR a.l TO X PRINT AT .,*♦*-! N 
- NEXT * NE*T n 
342 PRINT A- 13,12 00 lE- . 

2.H.8 let u<2 2 i. 3 LET UH.l 
•21 lET U I 1 .2 *20 
344 INK 3 FOB N.l TO 14 B£A3 
X.Y.2 PRINT AT x.Y, FOR N.l ”0 
3 PRINT ■ 

350 BEN COLOCACAO DA! PECAS 
333 PAPER 7 Ink 3 FOR N.l TO 
6 READ X , i PRINT AT x . . D N 
EXT N 

360 "OB N.l TO 7 BE«C • RRI 
NT AT . . . C NE XT N 

363 Ink 7 PAPER 2 PRINT AT J 
e. B at a. 6. ab • ink a paper 

370 PRINT AT 8,3, EE .AT 9.3i - E 

E" 

373 INK 1 FOR n.l TO 8 READ X 
. PRINT AT . ». "D • NEXT n 

‘so FQP n.l to 7 BEAD * . v RRI 

NT A- « , v, *c NEXT n 
390 INK 7 PAPER 1 PRINT AT 15 
,26 e AT 16 25 BA PAPER 7 

INK 1 

393 INK 1 PAPER 7 PRINT AT i 0 
,19, FF AT 21.19. FF ' 

396 BEN CHECK TECLADO 

397 LET NI»2 

396 LET BE. 1 31 AND Nl.2i*>0 AND 
NI.H LET EB.'O AND NI.ai»'31 
AND NI.H FOR N«0 TO 21 PRINT 
AT N FB INK NI ■ AT N RE. INK 
0 •' NEXT N let U «1 LET UE. 
3 ♦ IN* iBND»3l 
399 FOR O.U TO UE 
403 GOSUB 9-00 LET Nil '.XT lE 
T H i 2 ' »YT GOTO 410.1290 AND 'A* 



."C" OB A*."G'' OR A*.'R" OB A*. 
E" OP A*. "O' OR A * a A OR A * * ! 
OR AB.-T-I ■ 

410 GOSUB 9700 let N(3 .XT _E 

T M<4> « . T 

420 -£T AfSCREENt 'H I nia 
let a.attc in ' ii N(a _e- p.c 
ODE A«.6»A-439 LE- ■» 6 AND P«- 
2041.1- AND P.-203 • 0 AnC' P.-25 
2 1 ♦ ' 1 AND P « -23 1 1 IF I t OR P. 
-252 -HEN lET P.x 
425 GOTO 430* ! 900 AND i'P<6 OR 
P:1H OR >P .3 ANC- A .56 1 OB P>1 
AND A .56 ' OR (IP. 7 OR p.e OR p. 
10' AND A. 37 ' I I 
430 -ET A*. SCREEN* iN. 3 N-4 

LET A.ATTC lNl3l Hi* LET O.C 
ODE A*.6*A-439 

433 GOTO 9330- 8890 AND < (D»l A 
ND A .56) OR '0.13 and A.58' OR ( 
D«7 AND A *37 OR A. 61 OR I • (D . 
10 ANC A.5- OR '0*14 AND A.58 I 
ANC 1 P *0 OR p .6 < I • I 

440 _ET In . 0 • 2 AND Hill <6 AND 
N 1 2 1 11. '1 AND Rill 13 AND NI2I 

20- . 5 AND A.61' 

441 GOTO 458» 8930 ANC ((R>3 AN 
D Ni.i or p e an: Ni>ai ) ) 

450 GOTO *00. P.20 AND 0<6)*MP 
-6 .20 ANC P 3 ■ 

433 *.E*T 0 

460 SEN COLOCAR SON AOUI'M 
463 SOUND .3 6 

463 .E- N I . 1 1 ANC NI.2I.I2 AND 
NI.I GOTO 398 
50C =EN HOVIHENTO PEI 

302 GOTO 303. 8897 AND <ABS ini 
ll-H 3 ■ 1 1 OR ABS IN 1*1 -HI41 ) >D 

303 GOTO 304. (8896 AND NHIOHI 

31 ANC Nia N ( 4 1 > 

504 GOTO 505.16525 AND ( (D-14 A 
NO NI.I' OB 'D.10 AND NI.2di.i 8 
893 AND ilD.lt ANC NI.21 OA ID.l 
0 an: ni.ii t ' 

303 GOSUB 9340 PRINT AT H(3> H 
14 PAPER NI INK 7 A 
30e GOTO 433 

520 BEN HOVIMENTO G. REAL 

322 GOTO 323*18877 AND iABS IHi 
1>-Ht3i|>l OR ABS IHiai -HI4I I >11 

323 GOTO 324*16676 AND Hill • .Hi 
3 • AND H 12) i iH 141 I 

524 IF 11 H 13 "8 OR H (41 all) AND 
NI.2I OR NIJI.13 OB NI4I.20 
AND NI.H THEN GOTO 9400 
323 GOSUB 9340 PRINT AT HI3I ,H 
141 , PAPER NI, INK 7. 8 

sae goto 455 

340 ben HOVIHENTO infant ap ia 

342 GOTO 543*18857 AND 'ABS IHI 
1) -HO. I 1 OR ABS INiai -NI41 I >D 

343 GOTO 344*18636 AND Hill >H( 
31 AND Hia ■ H 1 4 I I 

344 GOSUB 9340 PRINT AT HI3I.H 
(41, INK NI.'C 

546 GOTO 433 



560 REH HOUIHENTO CAVALO 
362 GOTO 363*18837 AND 'ABS INI 
1' -H(3) I >2 OR ABS (Hiai -H 141 1 »2l 

563 LET A «H 1 1 1 *H 1 3 1 LET B.NI2' 
•H 1 4 ■ LET E1.A.-2 LET B2»INT .A 

2 -ET B3.B-2 LET B4.INT '6 2 
GOTO 564.16836 AND HllloNOl 
ANC H 12' < >H 141 I 

564 GOTO 566*14 AND B1 B2 OR S 
3oB4i 

566 -ET V*. SCREEN* iBl.B3i I» 
AND V8< >" l ‘ THEN GOTO 94 






370 GOSUB 9340 PRINT AT H<3) H 
1 * 1 , INK NI. "D 
375 GOTO 433 
380 BEN HOVIHENTO NAVIO 
383 GOTO 388.16812 AND (ABS 
11 -H 1 3 • I >i OR ABS IHi3i -HI4I >1 
I 

588 IF CODE At.iSa THEN GOTO 93 

569 GOTO 590.16810 AND HlllulK 
31 AND Hiai OHI4D 
390 GOSUB 9340 PRINT AT N 1 3 > H 
(41 , INK NI, F 

393 FOR N*1 TO 2 IF UIN.ll.N 1 
I AND UIN. 2 I >H' 2 > THEN GOSuB 59e 
596 NE»T N GOTO 455 
598 LET U IN , 1) .H I 3) LET UIN.2I 
.H (4 1 RETURN 
600 GOTO 583 

-00 REH COHANDOS NUNERICOS 
-03 GOTO 710.18820 AND A*»'G • 

18890 AND A t a 'R" ) * 1 190 AND A*. C 
"l.illO AND A*. E •' 1 ♦ I 100 AND A*. 
D * 1 ♦ 1 140 AND 1 A*. A OR A*. 3 

-23 LET B*> SCREEN* CH « 1 ' Hi2li 
LET A.ATTR (Hlll.Hiai) LET P.C 
ODE 8».6.A-439 LET ..(6 AND P»- 
2041*17 AND P.-203 ♦ ■ 0 AND P.-25 
21*11 AND P.-281 1 IF X< 0 OR P* 
-252 THEN lET P.x 
730 GOTO -3**18396 AND iP<0 OB 
P>lll OR iP»3 AND A .36* OR iP.l 
AND A. 561 OR (IP. 7 OR P «6 OR P. 
10* AND A. 37 I I 

733 GOTO 740*18590 AND IINI.2 A 
ND PB' OR (NI.I AND P '6111 
740 GOTO 745*18383 AND (8*. ( 

OA 6 *. « •) ) 

745 FOR N.l TO 4 LET H*IN|.SCR 
EEN* 1 N I 1 1 - I 1 AND N.4) « I 1 AND N. 
2 ) Hia* -(1 AND N.l* *11 AND N.3 ' I 
LET HINl.ATTB iMIll-ll AND N.4 
) * 11 AND N>2i N iji - H AND N.l I « < 
1 AND N.3 1 I LET u IN 1 .CODE H»(N' 
*6*NIN*-439 LET F.JINI LET X. 

6 AND F»-a04l.l7 AND F.-aO3l.'0 
AND F.-a52'*(l AND F .-25 1 * IF F 
• -2S2 OR X < > 0 THEN LET J 1 N 1 .X 
“46 NEXT N 

'60 LET u*. FOR N.l TO 4 



n»im : «••*•• and n*ini <«"( 
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TRAFALGAR 



763 IF LCN u|>4 OB LEN U»«3 THE 
N GOTO 9900 

76* IF U*." THEN GOTO 9950 
765 LET 1.0 lCT C«0 LET G.O 
LET B .0 FOB Nal TO LEN u» LET 
U9-u*(N TO N' LET I. I* il AND U9 
■ "("i LET c-c.il AND U0.d"' L 
ET 9 . 9.11 AND U>. " 6 " I LET r.r.i 



110 . IP -61 1 A NO P>5l 
775 BEN ATAOUE BE I 
760 GOTO 9030 
785 BEN ATAOUE G . BEAL 
790 IF B.l TNEN GOTO 9900 
792 GOTO 9950 
795 BEN ATAOUE INFANT AB IA 
797 IF C>1 OB IH OB G O OB iCa 
1 AND I -1 < TNEN GOTO 9900 
799 GOTO 9950 
605 BEN ATAOUE CAuALO 
607 IF I>0 OB Ol OB G >0 THEN G 
OTO 9900 

609 GOTO 9950 

610 BEN DESENBAPOUE 

611 GOTO 612.16516 AND lUiNI.l 
< >NI1I OB U INI .21 < >H (21 ) I 

612 G05UB 6*0 IF X < • 106 OB <G9 
(NI . 1 1 «"h ' AND G* INI .21 ■ AND 
Of INI 3 1 • "h '• I TNEN GOTO 9330 

615 SOUND .3,-60 



616 FOB N . 1 TO 3 LET XaMlli-t- 
(1 ANC N«3l LET V.NI2I -il AND N 
•1).(1 AND N.2l PAINT AT X.Y, I 
NX ClNINI.G 6 INl.NI LET G 6 INI N 
). X lET CiNI.Nl.0 NEXT N 

619 GOTO *55 

620 BEN EN6AB0UE 

621 GOTO 622.18506 AND IU<NIi' 
•Mill OB U INI . 2 I < >M(2' > I 

6 22 GOSUB 6*0 IF X < > 105 OB 1 G 6 
INI II ' "h AND G 6 INI . 2 I ( >‘‘h AN 
D 06 INI . 310 h 1 TNEN GOTO 9330 

623 SOUND .3,-60 

62* FOB N « 1 TO 3 LET XaHlll-1- 
(1 AND N.3I LET V.NI2I-11 AND N 
.ll.ll AND N.2i IF GflNI ,N1 a"h" 
TNEN LET G6 INI ,NI .SCPEEN6 IX. Vl 
LET ■ 6 .G6 ' NI . N 1 LET P.CODE >6 
♦ 6.ATTB I X.Y I -* 39 LET ClNI NI.' 
1 AND P S AND K|u"h"l.l2 ANC P 
5 AND ■* >"h I PBINT AT X.V, IN 
K 0 . "h 
626 NEXT N 
■38 GOTO *55 

6*0 LET X .CODE SCBEEN 6 INIl'-l 
Ml 8)1: BETUPN 

6*5 LET E .CODE SCBEEN 9 IX. Y- B 
ETufiN 

850 BEN ATAOUE NAVAL 
652 LET E 6 .SCBEEN 6 IM(li.Hl2l' 
LET A.BTTB IM 111 . H (21 I 
654 GOTO 656.16*7* AND 66 ( 

AND 66 I"*' 1 1 OP iA.57 AND NI.2 
OP IB. 56 AND N 1 . 1 1 I 1 
656 PBINT AT Mill .Ni2i INK NI 
E AND A6. 5 l.l-F AND A6 . a 



856 LET Kail AND A9«’S"l-ll AND 
A 6 > A” I FOB Nal TO 3 LET NI2I 
•NI 2 I.K LET x 6 .SCBEEN 6 INIli.Ni 
81 ' GOTO 660.12 AND 1X0. f OB 
X 6 > CII.I6470 AND ATTP IMIl'.NI 
21 1 *3 1 

860 NEXT N GOTO 9330 
862 LET VI . 0 LET K.1,6 AND Nal 
1.1,6 AND N a 2 1 « I . * AND NO> I* 
BND.K TNEN LET Vial 

664 FOB N .50 TO 10 STEP -1 SOU 
ND .03.N NE«T N 

665 BEN 0OOONMNNN • 1 1 • 

866 IF VI.0 TNEN GOTO *55 
670 PBINT AT NIH.NI 81 . INK 5 
■ FOB Nal TO 2 IF UIN.llaNlll 
AND UlN.2l.Mi2l TNEN LET UIN.ll 
■0 LET U IN. 2 1 .0 
675 NEXT N GOTO *55 
900 BEN DESTAOUE CAPGUEIBO 
903 IF U INI, 11.0 TNEN GOTO 920 
90S PBINT AT UiNI.l) ,U'NI.2> , B 
BIGMT 1, INK 0, -E- 
910 FOB N»1 TO 20 NEXT N PPIN 
T AT UiNI.ll ,U(NI.2I . INK NI."E" 
920 GOTO *05 
9010 BEN SAVE VABIAVEIS 
9012 LET END >62913 
901* FOB Nal TO 2 FOB Xal TO 2 
POKE END . V *N . XI LET END aEND.l 
NEXT x NEXT N 

9016 FOP N ■ 1 TO 2 FOB Xal TO 3 
POKE END . C IN, X I POKE END.l.COD 

E G 6 ‘N,XI LET END.END.2 NEXT X 
NEXT N 

9017 POKE END . NI POKE END.l.VE 
POKE END *2.0 

9016 BETUPN 

9020 BEN LOAD VABIAVEIS 
9022 LET END. 23297 
902* FOB Nal TO 2 FOB Xal TO 2 
LET UIN.XIaPEEK END LET ENDaEN 
0.1 NEXT X NEXT N 

9026 FOB Nal TO 2 FOB X.l TO 3 
LET ClN.XiaPEEK END LET Gl I N x 

laCNPf PEEK 1 END. II : LET END-END 
*2 NEXT X NEXT N 

9027 LET NI .PEEK END LET VE.PEE 
K 1 END ♦ 1 1 LET U.PEEk IEN0.2I 
9026 B ETufiN 

9030 BEN MOSTE BE I 

9032 GOTO 9O3*.'10 AND NI.ll 

903* BEN VITOPIA FBANCESA 

9037 LET LI.92 LET NO .9 LET At 

."FBANCESO GOTO 9060 

90*4 BEN VITOBIA INGLESA 

90*6 wET lI«93 LET NO. 12 LET A 

0« INGlESA 

3060 60BDEB 6 INK 0 PAPEB 6 C 
LS PBINT 

............. fin DE -39 

0 ..................... 

............ PBINT BSIMT - ] 

VITOBIA At GOSUB 9250 
3062 PBINT AT # 1.1 OUTBO uOGC 
I3/N1 LET Af-INKElf IF At* S 
TNEN GOTO 290 



9703 LET At a INKEV 9 PBINT AT XT 



(T INK 0, BPIGMT 1 , SCBEENt 1X7 
Hi *•* THEN GOTO 9703 
970* LET 66 *SCBEENt (XT.YTi IF 
CODE 66-32 TNEN LET 66* ■' 

9~05 IF A6 • C' OB A6> "0 OP A| = 



N6 IXT.YTl 

IT 66* ■ 



9135 NEXT n 
91*0 BETUPN 

9250 BEN ExECUTA NUSICAS 
9255 6EST0BE LI FOB Nal TO NO 
BEAD X.Y 

9260 SOUND Y.X NEXT N 
9270 BETUPN 
9305 STOP 

9325 SOUND .3,-20 BETUPN 
9330 GOSUB 9325 GOTO *00 
93*0 BEN APAGA LOCAL Ml 1,2' 

93*5 lET I 6-1 n_ ANC ' IN . 1 OB IN 
•2 OB IN.0)l.>B AND IN.S > 

93*6 PBINT AT NTlI.Hiai. INK IN. 

9350 PETuBn 

9*00 SOUND .3.-20 GOTO *00 
9*10 BEN BOTINA PPINAT 
9*15 POKE 65266. NI3> POKE 65269 
•Ml*' POKE 65270. COOE xt POKE 
65272. NI LET L-uSB 64670 PETuB 
N 

9*20 POKE 65266 Mill POKE 65269 
.Ni2i POKE 652'0. CODE '6 POKE 
65278, IN LET l-USP 6*6-0 PETuB 
N 

9530 BEN BOTINA DE GBAVACAO 
9535 BAND USB 6*991 
9537 GOSUB 9980 GOSUB 9010 
95*0 SAVE TBAFALGAB CODE 56000 
69 32 

95*2 GOSUB 9990 BAND USB 65003 
GOTO *00 

9600 BEN BOTINA LOAD 

9601 INPUT A6 IF A| ( > “S' THEN G 
OTO *05 

9603 EAPEP 0 INK 0 ClS 

9604 »0B N. 2 3232 TO 23296 POKE 
N 0 NEXT N 

9605 LOAD TBAFALGAB CODE 1636* 

* * 3m 

9699 GOSUB 9020 PAPEB 7 GOTO 3 

9-00 BEN lN*ev* < 2 > 

9702 LET A. PEEK A1 



T" OP At . G" OB A|.-B" OB A|t"E 
OB A|. -D" OB A*. 'A’ OB A*. "8" T 
MEN PBINT AT XT.YT.B* POKE A1 A 
SOUND .1.26 PETUBN 
9706 PBINT AT XT.YTi 69 POKE A1 , 

9710 LET FT a XT LET GTavT LET X 
T ■ XT . 1 1 AND At. -6" AND XT<2H- 1 
AND A«. "7 AND XT >01 LET YT a> T 
♦11 ANO Ata'6" AND YT<28l-ll AND 
Af a 5“ ANC yT>3) 

9714 lET A1.A1.i 32 ANC FT.XT-li- 
132 AND FT.XT.ll.il AND GT.YT-li 
- 1 1 AND GTarT.il 
9720 GOTO 9-00 
9900 BEN NOBTE DA PECA 
9905 LET IN.0.12 AND Mill >9 AND 
M (81 111 . 11 AND Nil) >15 AND N 1 2 1 
>201 

9907 lET LIai92 AND NI-2I.I93 AN 
D NI.ll LET NO ■ I 9 AND NI-2I.I12 
AND NI a 1 I GOSUB 9250 
9910 GOSUB 93*0 
99*5 GOTO *55 
9950 BEN ATAOUE FUBADO 
9955 GOTO 9330 
9960 BEN APONTADOB NOBNAL 
9965 POKE 23606.0 POKE 23607,60 
BETUBN 

9995 POKE 23606,2* POKE 23607.2 
*5 BETUBN 

9996 BESTOBE SAVE TBAFALGAB 
LINE 1 BUN 



SOFTWARE 



PROGRAMAS 
DBASE II e III 

Documentagflo e DepurapSo de 
programas DBASE ficou mais 
f$cil com os produtos: 

DB2 REF. COM (CPM) 

DB3 REF. EXE (MS-DOS) 
Permitem a listagem de progra- 
mas fonte DBASE, mostrando as 
variAveis utilizadas, bem como as 
suas ocorrencias. 

0 conjunto de palavras "reserva- 
das" pode ser modificado pelo 
usu^rio com um processador de 
textos. 

0 melhor 6 o prego: 

Cz$ 1.600,00 (DBASE II) 8 bits 
Cz$ 1.900,00 (DBASE III) 16 
bits. 

Solicite uma listagem exemplo. 
Entrega para todo o Brasil via sedex. 



microsoluqAo consultori a 
E SISTEMAS LTDA. 

Rua Evaristo da Veiga, 41 grupo 607 
20.031 • Rio de Janeiro - RJ 
Fone: (021) 240-9101. 



J ISOFlWARE 

REVENDEDOR Softkristian 
Apresenta: 

Os Melhores JOGOS para: 

* MSX 

* TRS COLOR 

* TK-90X 

* TK-2000 

E 

* TK-85 

* Pregos sem concorrencia 

* Embalagem exclusiva 

* Garantia 
Solicite Catalogo 



JT — SOFTWARE 
Av. Gov. Adhemar de Barros, 377 
08700 — Mogi das Cruzes — SP 
TEL.: (Oil) 469-4911 



Colabore com 
MS e ganhe 
assinaturas 

Agora quando voc£ nos 
remete sua colaboragao 
esta automaticamente 
concorrendo a uma 
assinatura anual de 
MICRO SISTEMAS. Todo 
m§s, sortearemos duas 
assinaturas: uma para os 
autores de artigos e 
programas e outra para 
os colaboradores da 
segao dicas. Os nomes 
dos premiados de cada 
mes serao publicados na 
Secao Cartas. 



r _. /Vlicro 
Sistemas 










SISTEMAS DE ENERGIA 




SISTEMA NO-BREAK 
LINHA SEICA 



ENERGIA 



SISTEMA NO-BREAK 
LINHA ECONOMICA 



nr ioti 



SISTEMA NO-BREAK 
UNHA SUPER 



UM SUPER NO-BREAK PI 



Nova llnha da aatabiliiadoras 
eletronicos da tensio para 
ralcrocomputadoras am S versbes 
a vdria* capacidadas, da 0.6 i 3 
KVA. Alta conrUbUidada, 
axcalanta apresentafdo a pra?o 
acessivel. 



Idaal para CPD'i com superminis a 
computadores da mddio a grande porta. 
Capacidada ate 100 kVA com 
possibilidada da expansdo ate BOO 
kVA. 



Para aplicafdo com 
mkrocomputadores a sans 
perifericos. Saida sanoidal, 
altamanta astabilixada. Capacidada 
da 0.38, 0.6, 1 a 1.8 kVA. 



Linha MN, para minkomputadorai, 
capacidada da 1.8 , 3 a 8 kVA. Linha MO, 
monofasico, para minis a superminis, 
capacidadas da 7.8, 10, IS a 38 kVA. 
Linha MG, trifisko, para suparminis 
a computadores da mMk a frande porta, 
capacidadas da 18 i 100 kVA. 



Guardian Equipamentos Eletronicos Ltda. 



Matrix 

Rua Dr. Garniar, 879 Rocha 

CEP 30971 - RJ Tel.: (031) 361-64S8 

301-0198 - Telex: (031) 34016 



rilial Sao Paulo 
Alameda dos Ubutans, 349 
Indianopolis - CEP 04070 
Tal.: (011)878-6836 




GUARDIAN 

ENERGIA A TODA PROVA 







SEMJIQES 




FLS Panther Informitica Ltda. 

EASY APPLE/PC CLUB 

O MAIS SENSACIONAL 

y 

APPLE CLUB ■ r ~'c 

/ y'Q ^ 
00 PAIS sgQ £0, 
s r A r *V 

"M° f R ft 5' 

,< R '° 

i N > 

.-'WIOdCES MM PC 

„ ' ' CftIXft POSTAL 68149 
CEP 05369 
SflO PAULO-SP 






ABRINDO AS PORTAS E 

" ‘ FECHANDO ' 

J v| NEGOCIOS J*p| 

M AUPHASER lit 1 



CcCO 






EN1 

SI 

BA1 



• A Solugao em Informatics 
•Contratos de Manutengao 

• Atendimento a Domicflio 
.Servigo em Garantia 

• Venda de Computadores e 

• Suprimento 

• Prolbgica e outros 



RE 

’M 



SISTECO - SISTEMAS DE COMPUTAgAO LTDA 

~R.o - AvfiKl. Nilp Pfnhi. 50 - Or. 2201 - Camro - T«U IQ21I 220 9613/220 9657^ 



S*o Paulo - A van ida Sio Guattar. 288 - Vila Aryantina - Tali.: (01 1) 832-9701/831-4392 




’ ® 



ASSOCIE-SE AO MELHOR 
E MAIOR CLUBE DOS USU- 
Arios DE MICROS DA 
LINHA MSX. 

TEMOS MUITO A 
OFERECER. CONFIRAI 

• 

SOLI CITE INFORMAgOES. 



AGUIA INFORMATICA 
LTDA, 

R. Mq. de SSo Vicente, 378 
G^vea CEP: 22451 
Rio de Janeiro - RJ. 



BAMICRO 

BANCO DE DADOS 



0 MAIOR FORNECEDOR 
DA INFORMATICA DO SUL 
DO ESTADO DO RIO DE 
JANEIRO. 
DISTRIBUTOR: 
VERBATIM (disquetes) 

EM AG (fita impressora) 
INTERPRINT (formulArio) 






cniK 



CLUBE N AC ION A L DO TK 




Fitoteca com 1000 programas em todas as areas 
Ganhe uma fita gravada por mes com 10 pro- 
gramas de sua escolha. 

Perifericos e Itvros com descontos especiais. 
Intercambio de programas 
Sorteios mensais de perifericos. 

Programas sob encomenda 
Mensalidade: apenas CzS 106,00 
PromogAo especial: fique socio e ganhe uma fita 
brinde com 5 jogos sensacionais. para TK90X, 
TK2000 e TK85. 

InformagOes: Caixa Postal 6605 

CEP 01051 - Sao Paulo - SP 
Tel.: (Oil) 222-5977 






CZS M3. 00 



PAR* TK 2000 E APPLE 
EX PL I C AQ A0 DETALHADA DAS INS- 
TRigSES DO 0$02 . 

APRESPA A FA2ER M0VIMENT0S E 
DESENH0S EM ALTA RESOLUgjO. 
VAR I OS EXENPL0S DE M0VIMENT0S 
EM ASSEMBLER COM LISTACEM C0- 
MENTADA: URSO, DINOSSAURO , 

PESSOA, PASSARO, ETC. 
EXPLICAgXo DA TRANCA: TK2000. 
INDICADO PARA USUARIOS INI- 
Cl ANTES OU EXPERIENTES. 

FA^A SEU PEDIDO JA 
ENVIE CHEQUE NOMINAL PARA 
MITATEC - CX POSTAL 129 
S.J. DOS CAMPOS - SP - 12200 




MCnaCEflTER 

COMPUTAQAO E INFORMATICA 



APRESENTA 






(0243) 



22-1421 



,wm ' 22 -1315 
AV. JOAQUIM LEITE, 396 
S/401 CENTRO 
BARRA MANSA - RJ 



A nova marca de * 

SOFT MSX I 

APLICATIVOS * + + + 3 

JOGOS W W 

EDUCATIVOS 

E MAIS: CURSOS, MICROS E ACESSORIOS 

Atendemos todo Brasil 
Solicite Catalogo 

MICROCENTER COMPUTACAO E INFORMATICA LTDA. 

Av. Castelo Branco. 800 - S/106 - Sao Francisco 
65075 - Sao Luis - Maranhao 
TELE-MICRO: (098) 227-1615 




Color Computer Club 



Se voce possui um CP 400, 
HOTBIT, EXPERT, TK90X, 
TK 95 ou outro compat/vel 
com um deles, n$o pode 
perder esta chance de usufruir 
com economia de: 
PROGRAMAS. MANUAIS, 
LIVROS. REVISTAS, CUR- 
SOS. DICAS, BOLETINS 
MENSAIS E OUTROS. 
Liberte todo o potencial do 
seu micro. E*creva-no* hoje 
mesmo para receber infor- 
magbes detalhadas a cupom 
de inscrig£b. 



Rua Japecanga. 101/301 - Prado 
CEP 50.720 RECIFE PE 
FONE: (081) 227.0443 








